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FOREWARD 


The Environmental Heat Flux Routine Version 4, (EHFR-4), is a gen- 
eralized computer program which calculates the steady state and/or trans- 
ion I; thermal environments experienced by a system during lunar surface, 
deep space, or thermal vacuum chamber operation. The EHFR analytical 
approach/ techniques , system geometric thermal models, and users instruc- 
tions are documented in Volume 1 of this report. Volume 2, presented 
herein, contains the detailed EHFR program reference information necessary 
for future programming changes and additions. The EHFR was written in 
FORTRAN V for use on the NASA-MSC Uni vac 1108 computer system employing an 
EXEC II Processor. Operation on the MSC Univac 1108 system requires the 
use.of overlay provisions, magnetic tape drives, and high speed storage 

drums. The peripheral equipment units used by the EHFR are shown in Table 
5-1 of Volume 1 . 

The EHFR program reference information contained in this volume 
consists of the following subprogram detailed data: purpose-description of 
the routine, a list of the calling programs, an argument list description, 
nomenclature definition, flow charts, and a compilation listing of each 
subprogram. Each of the EHFR subprograms were developed specifically for 
this routine and do not have an applicability of a general nature. Single 
precision accuracy available on the Univac 1108 is used exclusively in all 
but two of the 31 EHFR subprograms. The double precision variables re- 
quired are identified in the nomenclature definition of the two subprograms 
that require them. 

A concise definition of the purpose, function, and capabilities is 
made in the subprogram description. The description references the appro- 
priate Volume 1 sections of the report which contain the applicable detailed 
definitions, governing equations, and assumptions used. The detailed equa- 
tions are not, therefore, presented in each subprogram description. The 
compilation listing of each subprogram defines the program/data storage 
requirements, identifies the labeled block common data required, and identi- 
fies other subprograms called during execution. 
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SUBPROGRAM NAME: EHFR MAP 

SEGMENT NAME: PROG 

PURPOSE: Specify EHFR program structural plan for use by allocator 

of the EXEC II processor. 

DES CRIP TION: The memory allocation processor (MAP) is a special pro- 

gram which produces the EHFR structural plan. During execution, the alloca- 
tor uses the MAP to set up the required element/subprogram overlay and the 
assign program/data storage for each element. The EHFR MAP specified stor- 
age allocation and element overlay are shown on pages 2 through 6. 

The overlay is structured so that only one of the major 
EHFR environment option segments (i.e., lunar plain, or thermal vacuum 
chamber) occupies the core at any time. The segment program and data storage 
requirements are approximately the same resulting in efficient use of the 
overlay capabilities. 

The details of MAP programs may be found in the EXEC II 
Processor users manual. 

MAP LISTING: 


* H\P,* PNttG.KKV. *7 APH Tl lO:2f:2!V 
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EHFR MAP STORAGE ALLOCATION 


STARTING ADDRESS 014000 

CORE LIMITS 014000 031261 032224 163771 163772 163777 


SUB M 1 /CODE 

0 032224-032326 

1 014000-014175 

nfInps/code 

1 014176-014436 

2 032327-032327 

atan /CODE 

1 014437-014535 

2 032330-032401 

NRMnDs/CODE 
1 014536-014630 

EPACKs/CQDE 
I 014631-014674 

DEPTH /*•***• 

0 032402-032407 

NTABS /CODE 

0 032410*032536 

NFOUT S/CODE 

1 014675-015117 

2 032537-032540 

nbuffs/code 

1 015120-015141 

2 032541-033551 

Niot ns/code 

1 015142-015210 

2 033552-033602 

NOUTS /CODE 

0 033603-033606 

1 015211-016072 

2 033607-033624 
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NFMTS /code 

1 U16073-0l67b6 

2 033625-0336*40 

NCNVIi/CODE 

1 Ol 6757-0 1 7 i 66 

2 0336*41 -03372*4 

NOTlNS/COOE 

1 0 1 7 | 67-0 1 7560 

2 03 3 7 2S-Q 3 3 7 6 7 

NFTV* /CODE 
1 01756J-O176O3 

NBDC VS/CODE 
0 033770-03S 1 5H 

NCRRS /CODE 

0 03*1 1 55-03*43 1 5 

1 0 1 760M -0202 1 2 

niers /code 

0 03*0 1 6-03H3 1 6 

1 02021 3-02051 i 

2 03*13 l 7-03*4*1 1 0 

N! NPT5/C0DE 

0 03*4*41 1 -03*4*4 1 2 

1 020512-021*01 

2 03*0 1 3-03*4*4*45 

N 1 N 1 NS/CODE 

1 02 I *4 32-02 I 606 

2 03*1*4*46-03*4*4 7S 

nstops/code 

1 021607-02 162*4 

mautos/code 

1 021625-022263 

SUBM2 /CODE 

0 03*4*47 6-03*45 1 3 

1 02226*4-0223*4*4 

SUBH 3 /COOE 

0 03*45 1*4-03*4532 

1 0223*15-022*130 

NEXP6J/C00E 

1 022*43 1 -022*02 

2 03*15 3 3-03*15 3 3 

NXPAf S/CODE 

1 022*4*13-022565 

2 03*453*4-03*45*40 



nxpax*/coo£ 

1 022566-0226 1 0 

2 03HS<t 1 -03M5H l 

EXP /CODE 

1 022611-022701 

2 03H&H2-Q3H&6I 

ALOG /CODE 

1 022702-022763 

2 034562-03H630 

HESG3 /CODE 
2 03^63 I -03M6H0 

HE SG I 2/CODE 
2 03H6«M -03H660 

SUBMH /CODE 

0 03*166 I -03*1 7 1 0 

1 02276H-02332S 

SINCOS/CODE 
t 02 3326-02 3H | 5 

2 03*17 I | -03H7HH 

SUBmS /CODE 

0 03H7S5-03H756 

1 Q23HI 6-023530 

SORT /CODE 
0 03^757-035013 

2 03501 M -0 35055 

SUB M 6 /COOE 

0 035056-035207 

1 02353J-O23 7sO 

HR /••#••• 

0 035210-110^12 

GE) /#•••*« 

0 1 10R13-1 10M55 

:*5UBU /CODE 

0 1 10H56.1 1 1603 

1 023751 -026*106 


:*SUB!2 /CODE 

0 1 | l6U*t-l*tS6!5 

1 026R07-026S6R 

S*SUB|3 /CODE 

0 I I 160W32372 

1 026HQ7-Q3Q0M6 

:*subi<* /CODE 
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0 l 1 1 60S - M 56 1 7 

1 026*07-026*76 

:*SUBI5 /CODE 

0 1 1 1 6O*-l*S606 

1 026*07-026533 

J * SUB I 6 /CODE 

0 111 60S- l *5615 

1 026H07-02656H 

: •subsiq/coue 


0 

1 I0H56-J 1 1H1 7 

l 

023751-02561 I 

♦ CHI 


0 

1 l I*2U-l*7173 

• CH2 

/««*■*« 

0 

1H71/H-IH763I 

♦ CH3 

/•••**• 

0 

147632-15*772 

*C HH 


0 

15*7/3-15505* 

♦ CH 6 


0 

1 55055- 1552** 

♦ SUB S3 

/CODE 

0 

15S2S5-155310 

I 

025612-026023 

* SUBS * 

/coot 

0 

155311-15533) 

1 

02602^-026150 

♦SUBS5 

/coot 

0 

155332- I55H3 1 

1 

026151-026532 

♦SUBS7 

/co oe 

0 

155*32-155*57 

1 

026533-026666 

• SUBS 9 

/CO oc 

0 

1 55*60- 1 55*7 7 

i 

026667*027022 


l *5UB S i /CODE 

0 155500-156161 

1 027023-030226 

:*SUBS2 /code 

0 I 55500^1 555H5 

1 027023-027231 
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3*$UBS6 /COOE 

0 1&55UQ-157033 

1 02 7023-031205 

;*subsb /cooe 

0 I 55500-1 6114 7 

1 027023-030722 

DSURT /CODE 

2 161150-161252 

•SUBS l I /CODE 

0 161253-1*1342 

1 030723-031 261 


{ *SUBC 1 /CODE 

0 I I0HS6-| i |256 
} 023751-025470 

•SUBC2 /CODE 

0 I1I2S7-III373 

1 025471-026425 

•SUBC4 /CODE 

0 i i 1374-1 1756s 

1 Q26426-Q27717 

•SUBC6 /CODE 

0 1 I 7 b 6 6 - | 17622 

| 02772Q-030354 

ASlN /CODE 

1 03Q355-Q30*U 1 

2 117623-117631 

•GE2 /•*••*» 

0 117632-120625 

• GE3 /•#••#• 

0 120626-161033 

:*lpr /code 

0 110456-163226 

1 023751-027421 

TAN /CODE 

1 027422-027461 

2 163227-163246 

J *TCR /COOE 

0 1 10456-H6014 

1 023751 -025400 

« * I VE /CODE 

0 110456-163671 

1 023751-026033 


DRUM LENGTH 404202 
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PROGRAM NAME: Main Program 

SEGMENT NAME: SUBM1 

PURPOSE: Read the environment selection index and call the appropriate 

environmental subprogram. 

DESCRIPTION: The main program has no calculation functions but controls 
the calling of the various environmental subprograms for the nine EHFR 
options available. Overlay of the environmental subprograms is specified 
by the memory allocation processor in PROG (EHFR MAP) 

PROGRAM NOMENCLATURE: The following FORTRAN variables are used in SUBM1 
(main program) of the EHFR. 

IENV Environment index number (see Section 5.4.2 of 

Volume I and SUBM1 flow chart) 

IND Thermal vacuum chamber environment input indicator 

The MR and GE1 block common statements are used by most of the EHFR sub- 
programs and are in the same segment as SUBM1. The MR and GE1 common 
statement nomenclature are defined following the SUBM1 flow chart. 
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MR BLOCK COMMON NOMENCLATURE 

The following is a dictionary of FORTRAN nomenclature for the 
variables contained in the MR block common statement. The MR block 
common: transfers output titles, indices, and constants between programs; stores 

all Reference Coordinate System (RCS) nodal data; and stores nodal incident 
and absorbed heat values. The MR block common is used by many of the EHFR 
subprograms and is contained in segment M of the EHFR map. 


AL(N) 

Absorptivity of RCS node N to chamber solar lamps 

ALFMAT ( I , J) 

Absorptivity values for the curve of absorptance 
versus temperature for material I > curve point J 

ANAME(J) 

The name, in A format, of region J of the RCS for 
which environmental heat subtotals are made 

AR(N) 

Equivalent absorptivity of RCS node N to all infrared 
radiation sources 

AS ( N ) 

Absorptivity of RCS node N to incident solar energy 

DTI ME 

Length of time RCS node remains in a given environ- 
mental position, hrs. 

GENODE(N) 

RCS node name in A format 

IA(N) 

Index of region in which RCS node N is located (for 
environmental heat subtotal calculations) 

I CARD 

Number of input data cards read by the EHFR 

IN ( I ) 

Input array (dummy) 

IOUT 

Tape unit on which EHFR output is written 

I PAGE 

Page number for printed output 

IPRINT 

Print index for printed output 

IREF 

Reference Coordinate System index (see Table 5-2) 

M 

RCS mode index 

MAX 

Maximum number of nodes for the RCS 

MODE(M) 

MODEM 

RCS mode name in A format 

MOLD 

Previous time point mode index 
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MTRL(N) 

MTRLN 

NAME 

NEMU 

NMODE 

NVM 

PI 

PIT 80 

Q0> N) 

Q(2, N) 

Q(3, N) to 
Q(12, N) 

QR(N) 

QS(N) 

QT(I. j) 

REF(I) 

REF1 , REF2 

SIG 

TCON(N) 

TCONT 

TEMAT ( I , J) 

TIME 

TIMEO 

TITLE 

XN(I ) or XM( I ) 


Material index for RCS node N 

Number of regions for which RCS environmental heat 
subtotals are made 

Number of EMU nodes in the EMU-LRV model 

Number of modes for which RCS data is available 

Multiple reflections index. If o or then no 
multiple reflection calculations have been made 

*7 T , 3.14159 

TT /180° , 0.0174533 

Total heat abosrbed by RCS node N, Btu/hr. 

Total incident heat on RCS node N, Btu/hr 

See each environmental subprogram for definition 

Total incident infrared energy on RCS node N, Btu/hr 

Total incident solar energy on RCS node N, Btu/hr 

Environmental heat subtotals for source I and RCS 
region J, Btu/hr 

Reference coordinate system name in A format 

Stefan Boltzmann Constant, 0.1713 x 10~ 8 Btu/hr-ft 2 °R 4 

Adiabatic wall temperature of RCS node N, °R 

Environment contact temperature of RCS system, °R 

Temperature values for the curve of absorptance versus 
temperature for material I, curve point J. 

Time of current timeline point, hrs. 

Time of previous timeline point, hrs. 

Title of this run in A format 

Previous timepoint RCS location in environment, ft. 
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XO(I) 


Current timepoint RCS location with respect to local 
environment where 
1=1 RCS X position, ft. 

=2 RCS Y position, ft. 

=3 RCS Z position above local surface, ft 
=4 RCS azimuth angle, deg. 

XR(M, N, 1} RCS geometric configuration for mode M and node N where 

1=1 Node X coordinate 

=2 Node Y coordinate 

=3 Node Z coordinate 

=4 Node azimuth angle 

=5 Node Inclination angle 
=6 Nodal area 

=7,8,9,10 Node unblocked view to space from RCS node 
to quadrants 1 thru 4 respectively 
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GET BLOCK COMMON NOMENCLATURE 


The following is a dictionary of FORTRAN nomenclature for the 
variables contained in the GE1 block common statement. The GE1 block 
common contains transformed RCS nodal data, unit normal vector components, 
self-blockage data, and radiosity subtotals. GET is used by most of EHFR 
subprograms and is contained in segment M of the EHFR map. 

ASE RCS node area, ft^ 


BX 

BXX 

BY 

BYY 

BZ 

COSP 

COSSUN 

COST 


X component of transformed RCS node unit normal vector 

Cosine of RCS node transformed azimuth angle 

Y Component of transformed RCS node unit normal vector 

Sine of RCS node transformed azimuth angle 

Z component of transformed RCS node unit normal vector 

Cosine of RCS azimuth angle, PHI 

Cosine of the solar vector angle 

Cosine of angle between RCS unit normal vector and 
solar vector 


C0ST1 

DX 

DY 

DZ 

FATOT 

FSE(IQ) 

FSE ( 5 ) 
IQ 

PHI 

PHI1 


Cosine of RCS node inclination angle 

X component of vector between an energy source and 
RCS node, ft 

Y component of vector between an energy source and 
RCS node, ft 

Z component of vector between an energy source and 
RCS node, ft 

Geometric form factor from RCS node to infinite lunar 
plain 

Percent unblocked view to space from RCS node to 
quadrant IQ (self-blockage term) 

Total unblocked view to space from all RCS node quadrants 

Quadrant index of energy source (for IQ=5 no blockage 
exists) 

RCS azimuth angle with respect to the local environment, rad, 

Transformed RCS node azimuth angle (with respect to 
the local environment), rad. 
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SINP 

SINSUN 

SUN 

SUND 

THT1 

XSE 

YSE 

ZSE 

GOFIR -) 
GOFIRP / 
GOSOL } 
GOSOLD \ 
GOSOLA J 


Sine of RCS azimuth angle PHI 
Sine of solar vector angle 

Solar vector angle measured from -X axis., radians 
Solar vector angle, deg. 

RCS node inclination angle, rad. 

Transformed RCS node X position, ft. 

Transformed RCS node Y position, ft. 

Transformed RCS node Z position, ft. 

Defined separately in each EHFR subprogram, BTU/hr-ft 2 
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• HXt,* MillMI.MlIMJ 

(INIVAC MO* MWHUN V l>AH. ooi* •’501*11 

tmis nwriiArioN was honk on ii mui 7i m i* 40 


.41 Mill 71 


M 1 H : n, 


KAI N PROGRAM 

STORAGE USED ( Mj(>CK , NAME, LENGTH I 


0001 

•anit-: 

000176 

0000 

• DATA 

000 1(11 

oooz 

• MjANK 

oounno 

000J 

M4 

01 1477 


EXTERNAL KEKEHKNCKS < HIjCXJK , NAME* 


0004 

INPIT1 

0005 

IVK 

0006 

TCH 

0007 

TVC 

0010 

LPR 

0011 

LCH 

0012 

EXIT 

0013 

NHlXt* 

0014 

MOl 4 

0010 

MO*» 

ooi e 

NEHR24 

0017 

um't 

0020 

MMK/4 

0021 

MbEKS 

0022 

NSTOP6 


storage 

ASS ICVMKVT hllH 

VAH 1 AHI >:S 

1HIOCK, 

, type. 

HKMTIVK 

(OCATION, 

, NAM*-: » 









0001 


000150 

1 6CC 

0001 


000004 

1901. 

0001 


000050 

2001. 

0001 


OOfObl 

3001. 

oooi 


000013 

4001. 

0001 


000104 

60 01. 

0001 


000116 

700L 

0001 


000147 

9001. 

0001 


000127 

9 301. 

0000 


OOOOOi 

90 IK 

oooo 


000004 

9Z0E 

0000 


000031 

930F 

0000 


000057 

932F 

0003 

R 

001007 

AIj-MAT 

0003 

H 

000041 

A NAM*: 

0003 

R 

001326 

DTI mi-: 

0003 

1 

000013 

1CARD 

0000 

1 

000001 

IENV 

0003 

1 

000442 

IN 

0000 

1 

000000 

IND 

0003 

1 

000007 

lour 

0003 

1 

000014 

1 PACE 

0003 

I 

000024 

IPRIST 

0663 

1 

600010 

1RKF 

0003 

I 

000012 

ISC 

0000 

1 

000002 

IS 

0003 

I 

000000 

M 

0003 

1 

000001 

MAX 

0003 

1 

000430 

moo*-: 

0003 

1 

000002 

WXX-J4 

0003 

f 

000003 

MOl» 

0003 

1 

000023 

MTR1X 

0003 

1 

OOOOOfi 

NAME 

0003 

1 

000022 

NH*J 

0003 

1 

000004 

NMXJE 

0003 

1 

000005 

NVM 

0003 

R 

000015 

FI 

0003 

R 

000016 

PII00 

0003 

R 

000067 

or 

0003 

R 

000025 

RISK 

0003 

R 

000017 

SIC 

0003 

R 

000011 

TCONT 

0003 

R 

0004TT 

TKMAT 

0003 

R 

000021 

TIME 

0003 

H 

000020 

TIMKO 

0003 

R 

000461 

TITLE 

0003 

R 

001327 

X 

0003 

R 

001317 

XN 

0003 

R 

•00060 

XO 






oo mo 

I* 

c 



00101 

2* 


CO**ON / m / M, MAX. MODEM, MOLD.NMOOE, NVW.N AMR, 1 OUT, 1RRK, TCONT, 

00101 

3* 


1 

ISC, 1 CARO, 1 PACK, PI , PM 90 ,S IO,TIMKO,TIMK, NKXU,MTH1.N, 1 PRINT, 

00101 

4* 


2 

REE( 1 2 * , ANAMEC 1 5 * ,XO< 7 * ,OT( 15,15* ,MODK( 1 0 > , IN* | $ > .TITLEI 14* , 

0010! 

5* 


3 

TKMATl 20,10* , ALKMATl 20 , 10 * ,XN( 7 > ,DTIMK, 

00101 

6* 


6 

X14200* 

00101 

7* 

c 



00103 

9* 


CAIi 

. INPtfTl 

0OI04 

9* 


IND 

a 1 

00105 

10* 


190 READ (5,901* IENV, ISC 
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IMi 

11* 



1C AMD : ICAMO • 1 

00(12 

12* 



IK KKNV-9) 195.600,6 30 

0011 S 

1.1* 


195 

CONTI MK 

00116 

14* 



IK MENV.OT.5) IV) Tt> 300 

00120 

15* 



IK MKNV.LK.OI GO TO 200 

00122 

16* 



IV) TO « 200,600, 700,400, 400 >, IKNV 

00122 

17* 

C 



00122 

IP* 

c 


SECTION 200, INTH4VMm.X4.AH ENVIRONMENT. 

0012 :) 

10* 


200 

CAII. ive 

00124 

20* 



IND : 1 

00125 

21* 



IK ITIMK) M00 ,190,100 

0012S 

22* 

c 



00125 

2i* 

c 


SECTION 100, TAPE GNtllMSU HIXTINE. 

00130 

24* 


300 

(’Al l. TCR< 1 ENV ) 

001 31 

25* 



IM) - I 

00132 

2b* 



IK ITIMK) M00, tOO, 100 

00132 
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SUBPROGRAM NAME: Subroutine ALPHAl (T, A) 

SEGMENT NAME: SUBM2 

PURPOSE: Calculate the absorptivity of a Reference Coordinate System (RCS) 
node to energy at a given source temperature. 

DESCRIPTION: The absorptivity of a RCS node is necessary to calculate the 
amount of energy absorbed from a given energy source. The ALPHAl sub- 
program determines the absorptivity by linear interpolation of the 
absorptivity - temperature curve for the material comprising the RCS node. 
Ten absorpti vity- temperature values define each curve. If the source 
temperature is greater than the last value on the curve, the last value 
of absorptivity is returned by ALPHAl. 


CALLING PROGRAMS: 

TABW, IVE, LPR, LCR, CHB, CHR, INPUT1 

ARGUMENT LIST: 


T 

Energy source temperature (input), °R 

A 

RCS node absorptivity (output) 

NOMENCLATURE: The following FORTRAN nomenclature is used in the ALPHAl 
subprogram. 

A 

RCS node absorptivity 

ALFMAT (I,J) 

Apsorptivity of material I for curve point J 

DT 

Temperature difference for interpolation, °R 

T 

Energy source temperature, °R 

TEMAT (I,J) 

Temperature value of material I, curve point 0, °l 

I, MTRLN 

Material index for RCS node N 

J 

Material curve point index 


/ 
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SUBPROGRAM NAME: Subroutine TABW (Q, T) 

SEGMENT NAME: SUBM3 


PURPOSE: Calculate the adiabatic wall temperature of Reference Coordinate 

System (RCS) nodes. 


DESCRIPTION: The adiabatic wall temperature for each RCS node is required 

for tape output and desired for the printed output for the various EHFR 
environment options. Using the total absorbed heat, the RCS adiabatic 
wall temperature and its corresponding emissivity are calculated using 
an iterative technique. The equation defining adiabatic wall temperature 
is: 


1/4 

T = [Q/*<r FSE (5)] 


where * and«~ are the emissivity (at temperature T) and Stefan Boltzmann 
constant. T, Q and FSE (5) are defined below. 

CALLING PROGRAMS: IVE, LPR, LCR, CHB. 

ARGUMENT LIST: 

Q Total heat absorbed by RCS node (input), Btu/hr-ft^ 

T Adiabatic wall temperature (output), °R 

NOMENCLATURE: The following FORTRAN nomenclature is used in TABW subprogram. 

A Estimate of RCS node emissivity at temperature T 

A1 Calculated RCS node emissivity at temperature T 

B Intermediate variable (T at A1 = 1.0), °R 

FSE (5) RCS node unblocked view to all quadrants 

Q Total heat absorbed by RCS node, Btu/hr-ft 2 

SIG Stefan-Boltzmann constant, 0.1713 x 10" 8 Btu/hr-ft 2o R 4 

T Adiabatic wall temperature, °R 
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END 
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SUBPROGRAM NAME: Subroutine TRANS (N) 

SEGMENT NAME : SUBM4 

PURPOSE: Transform the Reference Coordinate System (RCS) nodal coordinate 
and unit normal vector data for the timeline point RCS environment loca- 
tion and orientation. Determine the cosine of the angle between the RCS 
node normal vector and the solar vector. Calculate the amount of RCS 
self-blockage of the solar vector. 

DESCRIPTION: The TRANS routine transforms the RCS nodal coordinates and 

normal vector data based on the timeline point information read in on 
Card B2 in the various environmental subprograms and the data calculated 
in the TRANR (SUBM6) subprogram. The self-blockage quadrant index (IQ) 
is set either to -1, 0, 1, or 5 depending on the environmental self- 
blockage data: 

-1 there is no change in environment for this IREF = 2 

RCS node, use previous environment calculations 

0 indicates that there is 100% nodal self-blockage, 

no heat absorbed by this node 

5 there is no nodal self-blockage for this node 

For the IREF = 2 RCS, the timeline point location and orientation data 
does not differ from the previous data for N > NEMU and M > 1 . The 
nodal coordinate/normal vector data transformations are based on the 
previous RCS location information for these conditions. 

CALLING PROGRAMS: IVE, LPR, LCR, CHB, CHR 

ARGUMENT LIST: 

N RCS Node Number (input) 

NOMENCLATURE: The FORTRAN nomenclature used by the TRANS subprogram 
consists of the variables of the MR and GE1 block common statements. 

The MR and GET nomenclature is defined with the SUBM1 (main program) 
nomenclature. 
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IK ICOST. l^E.0 .0> CO TO I 

DX = -COS SUN 

DY = 0. 

OZ s SINSliN 

CA1J, WjOCK 

COST = COST»FSEllO» 

RKTIHN 
I COST = 0.0 
HKTIAN 
END 
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SUBPROGRAM NAME: Subroutine Block 


SEGMENT NAME: SUBM5 

PURPOSE: Calculate the self-blockage quadrant index of an energy source 

incident on a Reference Coordinate System (RCS) node. 

DESCRIPTION: The quadrant index in which the energy to RCS node vector 

originates is necessary to determine amount of self-blockage and, 
thusly, the amount of energy incident on the RCS node. If the self- 
blockage quadrant index IQ is set to 5 in the TRANS subprogram, there 
is no self-blockage of incident energy and, therefore no calculations are 
necessary from BLOCK. The governing equations used to determine the 
energy source quadrant are presented in Volume I. 

CALLING PROGRAMS: TRANS, IVE, LPR, SUBDFF , FFLMPZ , FFFZ 

ARGUMENT LIST: None, all data required is transferred into and out of this 

routine via the GE1 block common. 

NOMENCLATURE: The following FORTRAN nomenclature is used by the BLOCK 

subprogram. Also used in the BLOCK routine are the variables of the GE1 
block common statement which are defined with the SUBM1 (main program) 
nomenclature. 

A Cosine of the projected angle in the X-Y plane 

between the RCS node normal vector and the RCS node 
to energy source vector 

B Cosine of the projected angle from the Z axis between 

the RCS node normal vector and the RCS node to 
energy source vector 

IQ Self-blockage quadrant index in which the RCS node 

to energy source vector originates 


) 
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SUBPROGRAM NAME: Subroutine TRANR 

SEGMENT NAME: SUBM6 

PURPOSE: Read RCS timeline - environment location/orientation input data 
on Card B2, check input data for errors, and initialize the environmental 
subtotal array. 

DESCRIPTION: The RCS timeline environment location/orientation input is 
read by TRANR and checked to assure: time is greater than the previous 
time point; the RCS mode index is not greater than allowed and is posi- 
tive; and the RCS Z distance above the local environment surface is not 
negative. Additionally, TRANR initializes NVM, TIMEO, MOLD, and the 
RCS environmental subtotal array. 

CALLING PROGRAMS: IVE, LPR, LCR, CHB, CHR 

ARGUMENT LIST: None, all data required is transferred into and out of 

TRANR via the MR and GE1 olock common. 

NOMENCLATURE: The FORTRAN nomenclature used by the TRANR subprogram consists 
of the variables of the MR and GE1 block common statements. The MR and 
GEI is defined with the SUBM1 (main program) nomenclature. 
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SUBPROGRAM NAME: Subroutine TCR (IE) 

SEGMENT NAME: TCR 


PURPOSE: Execute any of the three tape manipulation options available to 

the EHFR user. 

DESCRIPTION: The three tape manipulation options available in the TCR 

program are the output tape combining option (TC0)» the parametric 
properties evaluation option (PPEO), and the tape read and print option 
(TRPO). These three tape options enable the EHFR user to effectively 
utilize a library of previously generated RCS timelines which are avail- 
able on magnetic tape. Details of the tape manipulation option are 
presented in Section 5.3 of Volume I. 


LIMITATIONS: TCR tape drive limitations are defined in Section 5.3 of Volume I. 

i 

CALLING PROGRAM: SUBM1 (Main Program) 

ARGUMENT LIST: 

IE Tape manipulation index (read into EHFR as IENV 

on Card B1 in SUBM1) - (input) 

IE « 6 is TCO 

IE = 7 is PPEO 

IE = 8 is TRPO 

NOMENCLATURE: The following is a dictionary of FORTRAN nomenclature used 

in the TCR program. The variables of the MR and GE1 block common state- 
ments also used in the TCR program are defined with the SUBM1 (main 
program) nomenclature. 


A ( I ) 

ARR(N) 

ASS(N) 

E(I) 

ENV1 s ENV2 
IE 


IENV 
I, U 


Solar absorptivity of material I 

Thermal absorptivity of RCS node N 

Solar absorptivity of RCS node N 

Thermal absorptivity of material I 

Environment name in A format 

Output tape manipulation index 
= 6, TCO 
= 7, PPEO 
= 8, TRPO 

Environment index number on output tape 
Indices 


33 



IMR 

Index for multiple reflections 
+ Multiple reflections have been calculated 
0 multiple reflections have not been calculated 
- multiple reflections have not been calculated 

IP 

Tape point number for tape combining 

IT 

Tape mounting unit number for tape combining 

13, 15, 16 

Print indices 

MAT 

Dummy variable 

N 

RCS node number 

QA(N) 

Absorbed heat by RCS node N, Btu/hr 

SUND 

Sun vector angle above -X axis, deg. 

X 

Dummy variable 
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00104 6* ^ Rmii» t /vvwnf>».M)u» l or(n.is>,MH:(io).iMi , i>.rn!Mi4i 1 

00104 7* 3 1>H1T< 20. 101 ,AI J-’HATI 20. 101 ,X.M 71 . 1X1' I Ml- 
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00146 25* ARR(N) : Etl) 

00147 26* 110 ASS*N» = AU > 

00151 27* IT = 7 

00152 26* RFWIW IT 

00153 29* 125 RKM> UTJTIVK.M.MXXM.HIT.XO, Pf>V,HWl ,4NV2,SIMJ,TC0NT, 1M7, 

00153 30* 1 <X,OStM,QRlN) I Ttt)N<N> ( X,X,N=l ,H\X) 

00204 31* IF (TIM-:. IK. 0.0) RKTIHN 

00206 32* 1 PR I NT = -2 

00207 33* IF (1MH.LT.0) OO TO 670 

00211 34* IFR = 0 

00212 35* DO 135 N=I,HAM 

00215 36* OA(N) = OS<N>*ASS(N> • GH(N>*ARK<N> 

00216 37* 135 CONTI MK 

00220 36* OO TO 635 

00220 39* C 

00221 40* 200 IT = 7 

00222 41* REWIND IT 

00223 42* 225 READ (IT) TlM.M.MOOfN.PWT.XO. »f>V,6>(Vl ,Rx\2,S(.M),TOONT, 1NR, 

00223 43* I < QMNl.QSINJ.OTIM.TaiNCNI.X.X.Nn.WW) 

00254 44* IF <TIM:.LK.0.0> CAIK. EXIT 

00256 45* SPRINT = -2 

00257 46* IF ( IM7) 672,635,635 

00257 47* C 

00262 46* 625 CONTINIE 

00263 49* READ < 5, 905) IT, IP.TINE.DT1M: 

00271 50* 1CARD s I CARD ♦ I 

00272 51* IF (TINE. IE. 0.0) RETtRN 

00274 52* IF <TIME.LT.TIMO> OO TO 032 

00276 53* IF (IT. I>T. 7) 00 TO 002 

00300 54* REWIND IT 

00301 55* DO 630 l=l,IP 

00304 56* READ t!T> X.M.iOGSW.HVr.XO. IENV.ENV1 ,EW2 .SCND.TCOWr, INR , 

00304 57* 1 (OA(N),OS(N),OR(N),TOOMN),ASS(N),ARR(N),N=1 ,HAX) 

00335 56* IF (X.LT.0.) OO TO P10 

00337 59* 630 OOTIME 

00337 60* C 

00341 61* IF (IWR.LT.0) IW = 0 

00343 62* 635 C0NTIM.E 

00344 63* DO 640 1=1,3 
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00352 
00J52 
00355 
001 60 

00361 

00362 
00163 
00364 

00366 
00166 
00167 

00367 

00371 

00372 

00374 

00375 

00376 

00426 

00427 

00430 

00431 

00433 

00434 
00451 
00454 

00460 

00461 
00477 
00500 

00502 

00503 
00506 
00512 
00514 

00531 

00532 

00543 

00544 
00546 
00550 
00562 
00564 
00573 
00575 
00577 
00603 
00606 
00610 
00623 

00625 

00626 
00627 
00611 
00612 
00647 
00650 

00653 

00654 

00656 

00657 
00660 
00661 


f 4* 


DO 640 J-1,15 

65* 


640 0T<1..»> = 0. 

664 

C 


67* 


DO 650 N?I,KVT 

68* 


J = IA<M 

€9* 


OT< I , J ) : UTII.ll ♦ QVM 

70* 


QT<2.J) = 07I2..M ♦ OS<M 

71* 


QT<T, J > - OT< l.J» ♦ OHIM 

72* 


urn ,i > : (JTO.n * wim 

73* 


QT1 2.11 s GT< 2 , 1 > * OS<M 

74* 


QT< 3 , 1 1 = OT< 1, 1 » ♦ UR<N> 

75* ' 


650 CONTI ME 

76* 

C 


77* 


1 PRINT = 0 

76* 


IF < IK.GT.71 GO TO 672 

79* 


670 CONTI ME 

*0* 


WITH (IOITI TINE,M,M1C*W ,NV\X , M) P IKNV,KNV1 ,ENV2 , SEND, TCONT , 

PI* 


I (OMNI ,OS(N>,OH«M,7TTJN<N),ASS<M,AHH<N1,N=1 ,MAX1 

P2* 


672 CONTI ME 

P3* 


15 = 1 

P4* 


16 = 33 

0 5* 


IK 1 I6.CT.H\X> 16 = MAX 

P6* 


IP/VMK = IPAGK ♦ 1 

P7* 


WHITE <6,9501 TITlK,lHACP:,T1Nf-: f KP>’l,RKi«'2,Mnn6N,HN(Vl,6'NV2 

86* 


IP’ 1 IE-7 > 674,676,676 

P9* 


674 WRITE <6,955> IT, IP 

90* 


OO TO 660 

91* 


676 WITH (6,9561 M , 1=1 ,201, A.K 

92* 


a) TO 660 

93* 


678 WHITE <6,9561 

94* 


680 CONTI ME 

95* 


if (iMi.trr.o) white <6,96<ii 

96* 


IK (IKSV.KK.il Wim 6, 9591 MN1 

97* 


IK CIRKF.KE.2I OO TO 664 

96* 


WRITE (6,9711 REF1 , <XO( 11,1=1 , 41 ,TCWr,REK2, <XO( 11,1=5,71 

99* 


OO TO 665 

100* 


684 WRITE <6,9511 REK1 ,HKK2, < XO( 11,1=1,41 ,T00VT 

101* 


665 00NTIM.E 

102* 


WRITE <6,9521 

10.3* 


IF <NA5E.IK.01 OO TO 669 

104* 


WRITE <6,9531 < ANANE< J 1 , (QT( 1 , J 1 , 1 = 1 , 3) , J=2, NA5E1 

105* 


669 WHITE <6,9531 

106* 


WRITE <6,9531 ANANE< 1 1 , <OT< 1 , 1 1 , 1=1 , 3) 

107 + 


WRITE <6,9651 

106* 


IF < IPR1VT.NE.-21 OO TO 695 

109* 


WRITE <6,9571 REFI ,REF2 

110* 


IF < IE-7 1 625,125,225 

Ml* 


695 WRITE <6,9521 

112* 


WRITE (6,9541 < N,GENCOE<N) ,QA< N> ,0M Nil ,0R<N> ,T00N(N1 ,N= 1 5, 16 

113* 


698 IK <16. FO. MAXI OO TO 699 

114* 


15 = I6*l 

115* 


16 = 16 ♦ 13 

tie* 


IF (I6.CT.MAX1 16 = MAX 

117* 


IPAGE = (PAGE ♦ 1 

IIP* 


WRITE <6,9501 TITIE, IPAGK.TINE.RW-'I ,REF2 .MODEM, ENV1 ,FNV2 

119* 


00 TO 695 

120* 


699 IF (IE-71 700,125,225 

121* 


700 CONTINUE 

122* 


IF (DTINE.LE.O.Ol OO TO 625 

123* 


TINE = TINE ♦ OTINE 

124* 


TIN«>= TINE 

125* 


DTINE= -1. 

126* 


1 PRINT = -2 



l 121* IK (IMI.FU.O) W : -2 

00664 I2P* U) IX) 670 

00664 129* C 

00664 130* C SFVTION *00, I SPIT FW<W 1)1 AGNOSTIC M-SSViKS 

00664 131* C 

00665 1 32* P02 DHIT1-. <6.020) I CARD 

00670 131* MHTK C 6 , 922 * IT 

00673 114* IX) It) P90 

00674 135* H 1 0 IHITt: 16 , 020 * I KAMI) 

00677 136* »KiTK 16,024) IT. IP 

00703 137* XX) 7T> POO 

00704 17H*. P2Z ftHITK (6,920) ICAHI) 

00707 139* «HI1T (6,926) IT 

00712 140* GO IT) POO 

0071.3 141* 612 Wliv: 1 6, 920) I CAM) 

00716 142* wm: 16.916) TIMXI.TISE 

00722 141* P90 TIM-: = -100. 

00723 144* RFTTUtN 

00723 146* C 

00723 146* C SHTI ON 900, HKH\T STATV7MXTS 

00723 147* C 

00724 I4P* 902 KWMVT IIOF’P.D 

00725 149* 90S ITKW (2I4.9KP.3) 

00726 ISO* 920 FXWMAT I////47H KATAI . FKHfXl IN DATA INPIT HIM) ON CAW) MM6X, 

00726 IS1* 1 14 , ff S2H PROGRAM DIU. CAN. EXIT AFTFW 33IP: FIX I (MING MESSAGE 

00726 1.S2* 2. ////I 

00727 |S1* 922 FXWMVT N2H TAPK MMIFlt.15, S1H IS NOT AIJIMAHIK. USE AMRUMI 

00727 1S4* 1 INPIT TAPK 1X1 IVK. ) 

00730 1SS* 924 FtWHlT (|2H TAPK MMHFH.I5.I0H , POINT , IS.32H IS HKTOM) T30-: FM> 

00730 1S6* I OK KIIE MARK. > 

00731 157* 826 FYX;MAT166H KITHFH THE SOI AH ABSORPTIVITY OR 330-KMM. FMISSIVITV HW 

00731 1SH* 1 MATHHAL ,I4,3X,35H IS MCATIVK OR GREATER 73tA\ l-NIIY. ) 

00732 IS9* 916 FXWFVVT I S6II TIM-: INCHIMVr HFT*F». ASTRONAIT PX)S ITIONS IS NFGATIVK 

00732 160* I. // 14H FIRST TIM: = ,K|0 . 2, 30X , 1 4H SFXt)NI) TIM = ,KI 0 . 2 » 

00733 161* 9S0 FORMAT I9W TIFE,21X . 1 4AS, 12X , 4HPAGK, 14 /9H Oft) ,/E10. .3/ 

00733 162* 1 10X.2AS, PH IN A ,A5,29H1NG MKK IS IIX’ATFD IN A 

00733 163* 2 .2A6.ISH F>VIKOnM-VT. // ) 

00734 164* 9$1 MX (MAT (2H0 ,2A5 , 16X , IIIX, 9X, IHY ,9X, 2SH/ A2IMLTH CONTACT / 

00734 16S* 1 I0H IOCATION, 16X, 4SH(FT> (FT) IFT) IDF1II TK 

00734 166* ZMP / 20X.!K10.2,2K10.1 /// 

00734 167* 3 40H SIKMVIY OK THE THlHMAL F>V I RONFEVT , / ) 

00735 16P* 952 FORMAT I.K4ZH O O O AD XI / 

0073S 169* 1 3I42H NOOK NOOK TCTrAI. SOLAR I.R. TFMP ) / 

00735 170* 2 3( 42H NO. NAM AHSOR INCH) INCIO DBG Rl 1 

00736 171* 9S3 FORMAT (9X,A5, 3E7 . 1 ) 

00737 172* 954 FORMAT I 3( I p , IX, A5 , 4F7 . 1 > ) 

00740 173* 955 KX1MAT ( 30X, 31H TAPE OOfilNING OPTION. TAPP:, 13, 20X, 

00740 174* 1 15H TIMCUNT POINT , 15 // 1 

00741 175* 956 KWMVT ( 30X.50H PARAMTRIC MAI^IFALS PROPERTY EVAU'ATION OPT! 

00741 176* ION. // |2H MATFRIAL ,13,1915 /RH SOIAR ARSGR, 20K5 . 3/ 

00741 177* 2 12H l.R. ARSOR, 20F5 3 //) 

00742 17R* 957 FORMVT (//// 2X.2A5.102M ENVJRONM-NT !S THE SANE AS THE PREVIOUS 

00742 179* ITIIM-: POINT. SEE THAT PRINTUT FOR DPTAILPD NODAL Ml* DATA. I 

00743 1P0* 95P KWHAT (30X.50H TAPE READ OPTION. NO NfcX OLTPVT TAPE GEShRATED . 

00743 1P1* t //» 

00744 IF 2* 959 FORMAT N 3H 6>V J RONNEYT , 1 6X, 1PHSIN ANGiR (DBG) = ,F7.2 /) 

00745 1P3* 960 FORMAT (7 PH THE RESULTS FOR THIS TIM POINT 1NCUDE MULTIPLE RKFO 

00745 l»4* 1ECTIONS CALCINATIONS. //) 

00746 IPS* 965 FIWMVT UH ///> 

00747 1P6* 971 FORMVT (12H0 LOCATION , 16X, IHX.9X, 1HY,9X,25HZ AZIMTIH C0NT 

00747 f«7* 1 ACT /26X,45H(FT> (FT) <FT) < DBG) T>W R / 

00747 IP** 2 I2X,A5.3X,5FT0.2 / 12X, AS.3X, 3FT0 . 2 ttt 

00747 1P9* 3 40H SIMBARY OF’ T>fS THFRMAJ. fc^YIRONNENT. /» 

0 190* FM3 

E>J) OF IMYAC 110h HWIKAV V OOMPHAHOV 0 *1)1 A(iM)sTIO MSnVIKS* 

TCR S3MXX.IC 24 APR 7| 22:56:27 0 (121062^0 

TCK a**-: RFNX ATAIUi: 24 APR 11 22:56:27 I 02 i) M t -t 

0 02 ( I ( *60 


190 (DFIF’IFD) 
I (IIF1 >T F1>) 
112 
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SUBPROGRAM NAME: Subroutine IVE 

SEGMENT NAME: IVE 

PURPOSE: Calculate the intravehicular thermal environment on the Reference 
Coordinate System. 

DESCRIPTION: The intravehicular thermal environment is simulated by a 
rectangular enclosure which emits energy in the infrared spectrum. 

The surface temperatures for each of the six enclosure surfaces, the 
enclosure size, and enclosure surface l.r. emittance are input to 
the IVE program. The governing equations used to determine the intra- 
vehicular thermal environment are presented in Section 4.1 of Volume I, 

CALLING PROGRAM: SUBM1 (Main Program) 

ARGUMENT LIST: None, all data required are transferred into and out of 

this subprogram via block common. 

NOMENCLATURE: The following is a dictionary of FORTRAN nomenclature used 

in the IVE program. Also used in the IVE program but not included below 
are the variables of the MR and GE1 block common statements. The MR 
and GE1 variables are defined in the SUBM1 program nomenclature. 

Form factor term from RCS node to vehicle surface 
node 

Absorptance of RCS node to incident radiation 

Cosine of angle between RCS node normal vector and 
vehicle energy source 

Cosine of angle between vehicle energy source normal 
vector and RCS node 

Node area of vehicle interior surface K, ft^ 

Node length variables used for node center point 
calculations, ft. 

Node Y 1/2 length magnitude of vehicle interior 
surface K, ft. 

Node Z 1/2 length magnitude of vehicle interior 
sufrace K, ft. 

Infrared emissivity of vehicle interior surfaces • 
Environment name in A format 
Form factor from RCS node to vehicle surface node 


AA 

ALPHA 

B1 

B2 

DA ( K) 

DL, DS 

DYN (K) 

DZN(K) 

ECN 

ENV1 , ENV2 
FA 
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FSC 

FSC5 

FSC6 

H(K) 

IENV 

II, 12, 13 
I. J, K, KL, L, 
N 

NN 


Form factor from RCS node to vehicle interior 
surface 

Form factor from RCS node to vehicle interior deck 
Form factor from RCS node to vehicle interior overhead 
Height of vehicle interior surface K, ft. 

Environment Index number 
Print indices 
ISC Indices 

RCS node number 

Number of vehicle interior surfaces for which nodal 
data are required 


NW 

NH 

NN2 

PHIC(K) 
Q(K+2, N) 

Q(l. N) 
Q(2, N) 
QIR(K) 

R4 

THTC(K) 

TSC(K) 

TSCF(K) 

W(K) 

wx 

wxx 


Number of vehicle interior surface node widths 

Number of vehicle interior surface node heights 

Number of vehicle interior surfaces 

Azimuth angle of vehicle interior surface K, Deg. 

RCS node absorbed heat from vehicle interior surface 
K, Btu/hr 

Total energy absorbed by RCS node N, Btu/hr 
Total energy incident on RCS node N, Btu/hr 
Infrared radiosity of vehicle surface K 
(Distance)^ between RCS node and vehicle source 
Inclination angle of vehicle interior surface K, Deg. 
Temperature of vehicle interior surface K, °R 
Temperature of vehicle interior surface K, °F 
Width of vehicle interior surface K, ft. 

Vehicle interior width in X direction, ft. 

Stored vehicle interior width in X direction, ft. 



WY 

WYY 

WZ 

WZZ 

X 

XC(K) 
XN(K) 
XSH(I , K) 
Y 

YC(K) 

YN(K) 

YSH( I , K) 
Z 

ZC(K) 

ZN(K) 

ZSH ( I , K) 


Vehicle interior width in Y direction, ft. 

Stored vehicle interior width in Y direction, ft. 

Vehicle interior height in Z direction, ft. 

Stored vehicle interior width in Z direction, ft. 

Node center point X coordinate of vehicle surface K, 

Ft. 

Center point X coordinate of vehicle surface K, ft. 
Surface K unit normal vector magnitude along X axis 
X coordinate of corner i, vehicle surface K, ft. 

Node center point Y coordinate of vehicle surface K, ft. 
Center point Y coordinate of vehicle surface K, ft. 
Surface K unit normal vector magnitude along Y axis 
Y coordinate of corner i, vehicle surface K, ft. 

Node center point Z coordinate of vehicle surface K, ft. 
Z center point coordinate of vehicle surface k, ft. 
Surface K unit normal vector magnitude along Z axis 
Z coordinate of corner i, vehicle surface K, ft. 


42 



IVE 


SUBPROGRAM FLOW CHART 





















* M«.+ INF . INF 

iNIVAC 1106 MMTK3N V 1FVF1 

THIS ItWPHAriOS tots IX*K 0\ 


22«>b ooi* ftoiyii 
27 APR 11 AT 1 0:2b: 21 


»0 ( I i\. 


n All! 11 


susKxmNK ink ivm» point 002040 
stcjracjk if-m ouijck, m>*:. uxrwi 


0001 

*ax> 

002063 

0000 

•DATA 

053214 

0002 

*H1ANK 

000000 

0001 

W 

OS32D3 

0004 

OKI 

000043 


EXTtKNAL KF6YHFNCKS <HUXV, \W. > 


0005 

THANH 

0006 

TKA.VS 

000? 

Hint* 

0010 

Aim\i 

0011 

TAH% 

0012 

7HLX5 

00 U 

NiOl & 

0014 

NIG25 

0015 

a>s 

0016 

SIN 

0011 

SflHT 

0020 

MHV* 

0021 

NUUl» 

0022 

M:HH3X 


STURAGK ASSIGNMENT M« VAHIAlttFS 1RIOCK, IT FK, KKMTIVK tOCATION, M»:i 


0001 


000006 

I34G 

0001 


000126 

1720 

0001 


00035? 

2360 

0001 


000365 

2430 

000! 


0004)1 

2520 

000! 


00053b 

304C 

0001 


000622 

3260 

0001 


000642 

336C 

0001 


000701 

3530 

0001 


000707 

3570 

0001 


001162 

4.510 

0001 


001234 

416C 

0001 


001256 

5100 

0001 


OOt 306 

5250 

0001 


001336 

542G 

0001 


001345 

5460 

0001 


OOI37S 

5630 

0001 


001406 

571C 

0001 


001425 

6020 

0001 


001461 

620G 

0001 


001464 

6230 

0001 


000506 

625L 

0001 


000571 

627L 

0001 


000610 

6201. 

000! 


000671 

631L 

0001 


001005 

6331. 

0001 


001016 

6341. 

0001 


001510 

6350 

0001 


001021 

635L 

000) 


001036 

637L 

0001 


001050 

6441. 

0001 


001053 

646L 

0001 


001055 

648L 

0001 


001110 

650L 

0001 


001145 

6561. 

0001 


CO! 173 

6600 

0001 


001211 

6701. 

0001 


001274 

672L 

0001 


001413 

67 4L 

0001 


001433 

6751. 

000) 


001622 

671G 

0001 


001473 

679L 

0001 


001545 

66ZL 

0001 


001553 

6P5L 

0001 


001561 

6661. 

0001 


001600 

6911. 

0001 


001642 

695L 

0001 


001701 

69SL 

0001 


001762 

699L 

0001 


00)630 

7030 

000! 


001663 

tlfG 

0001 


001134 

7370 

0001 


002000 

A3RL 

0000 


052552 

902F 

oooo 


052554 

940F 

oooo 


052626 

9-50F 

0000 


052655 

951F 

0000 


052715 

952F 

oooo 


052733 

953F 

oooo 


052737 

957F 

0000 


052163 

959F 

0000 


053015 

962F 

0000 


053054 

963F 

0000 


053051 

964F 

oooo 


053062 

965F 

0000 


053064 

97 IF 

0000 

R 

052544 

AA 

0003 

R 

001327 

AL 

0003 

R 

001007 

Al>H\T 

oooo 

R 

052550 

ALPHA 

0003 

R 

000041 

ASA"*-: 

0003 

R 

002177 

AR 

0003 

R 

00303? 

AS 

0004 R 

000003 

A5E 

0004 

R 

000006 

RX 

0004 R 

000021 

HXX 

0004 

R 

000007 

BY 

0004 R 

000022 

BYY 

0004 

R 

000010 

BZ 

oooo 

R 

052541 

Bl 

0000 

R 

052542 

B2 

0004 

R 

000011 

OOSP 

0004 

R 

003042 COSSUN 

0004 R 

000031 

COST 

0004 

R 

000023 CDSTI 

0000 

R 

000066 

DA 

0000 

R 

052527 

D l. 

0000 

R 052532 

OS 

0003 

R 

001326 

CfTlME 

0004 

R 

000024 

DX 

0004 R 

000025 

DV 

0000 

R 

000034 

DYN 

0004 

R 000026 

DZ 

0000 

R 000040 

DZN 

oooo 

R 

052525 

HCN 

0000 

R 

052513 

FNVI 

0000 

R 

052514 

ENV2 

0000 

R 

052545 

FA 

0004 

R 

000032 

FATOT 

oooo 

R 

052540 

FSC 

0000 

R 

052534 

FSC5 

0000 

R 

052535 

FSC6 

0004 

R 

000014 

FSE 

0003 

R 

003103 osook 

0004 

R 

000033 GOFIR 

00C4 

R 

000030 

GOFIRP 

0004 

R 

000034 

GOSOL 

0004 

R 

000036 

OOSOLA 

0004 

R 

000035 OOSOU) 

oooo 

R 

000030 

H 

0000 

I 

052530 

1 

0003 

1 

00454? 

1A 

0003 

1 

000013 

(CARD 

0000 

1 

052512 

IKNV 

0003 

I 

000442 

IN 

0003 

( 

00000? 

IOLT 

0003 

1 

000014 

(PACK 

0003 

1 

000024 

(PRINT 

0004 

1 

000027 

10 

0003 

1 

000010 

IRKF 
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m oco.t 

1 

0000J2 

i.**c 

0000 

• 

052521 

|s 

ooon 

1 

052546 

It 

OOOO 

0000 

1 

05253.1 

j 

oono 

1 

0525 H> 

K 

0000 

1 

052-531 

M 

ooon 

0001 

1 

ooonot 

MAX 

000 3 

1 

000430 

•>«»' 

0110 1 

1 

000002 

StXX-N 

000 » 

0003 

1 

000023 

urn .% 

0000 

I 

052520 

N 

non i 

1 

011(1 0«h 

HAS*: 

000 i 

0003 

1 

000005 

NVM 

0004 

H 

000013 

PHI 

0000 

H 

000020 

PH 1C 

0004 

0003 

H 

000 oh. 

PIHO 

0003 

H 

000257 

O 

0000 

H 

or oiu.o 

DIR 

non i 

0003 

R 

000067 ur 

0001 

H 

000025 

kff 

0003 

R 

000025 

HSU 

000 1 

0003 

R 

00O0t7 

sic; 

0004 

R 

000012 

S1SP 

0004 

R 

000041 

SINMN 

oooo 

0004 

R 

000040 

SI Ml 

0001 

R 

00541 1 

1«)N 

0003 

H 

doom i 

131 IM 

000 1 

0004 

R 

oooooo 

urn 

0001 

H 

000021 

tim: 

0001 

R 

000020 

TIMO 

0003 

0000 

H 

000052 

TSCK 

0000 

R 

000024 

tk 

0000 

H 

052522 


oooo 

COOO 

R 

052516 

XX - * 

ooon 

R 

052524 

*>/ 

0000 

H 

052517 

*7J 

oooo 

0003 

R 

001317 

XN 

0000 

H 

000152 

XN 

0003 

H 

000060 

X(> 

11003 

0000 

R 

000072 

XSH 

0000 

R 

025140 

Y 

0000 

H 

000004 

YC 

oooo 

0000 

H 

030112 

YSM 

0000 

R 

052126 

7 

0000 

H 

000010 

7C 

oooo 

0000 

R 

000132 

7X1 











I <15255! 12 
I 0VM7 I 
I (XKXIO i M*l> 

I 000022 
k oooooi mil 
R 0201 »7 OH 
R 00002t< HHV 
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S1MKXH INE IVE 

00101 

2* 

C 


00103 

3* 


PARAM-HYR M4AX = 3 ,M4\X=420 

00104 

4* 


(XMHCIN / Ml / M,M\X,MlfX'>1,MXD,SMCX'X\,NVM, NAM - *, KVT , IRFF.TLTXVT, 

00104 

5 * 


I ISC, ICAKD, IP**:, PI .PmO.SIC.TIMO.TIM-.’.NHMI.Ml’HI A, IPHIST, 

00104 
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2 RKF( 1 2 > , A\AM-*< 1 5 1 , XO( 7 1 ,OT( 15,151 ,MX».'< 1 0 > . IN( 1 5 ) ,TIT1K( 1 4 > 

00104 

7* 


3 TW4VTI20, 10).Al>MXT<20.10».XM<7l,miM*:, 

00104 

6* 


4 AU 6M\X l , 4H< SFVAX > , AS ( NNVYX 1 .CKMX*:i XM\X 1 , 1 A< W4\X > , TlXIN ( SNVYX ) 

00104 

9* 


5 0( 1 2 ,NM\X 1 ,C«< WAX 1 ,US< V4\X > , XH ( NfV\X , WAX , 10 1 , WVH1 .< WYX > 

00105 

10* 


KX 1 1 VA1 FNCK < RKV1 , Kl >'< i 1 1 , < Hi-> 2 , RKF< 2 > 1 

00106 

M* 


OU6MJN /CK 1 / XSR.YSK.ZSK.ASK.PHIl , 1 Yfl’l ,nX,HY,HZ,a>SP,MINP,HI», 

00106 

12* 


1 FSF< 5 I,HXX,RYY.CUST 1 .IW.DY.IW, IO.UOFIRP, 

00106 

13* 


1 a 1ST , FATC7T , OOP’ ? R , GOXX, , CIOS* X /) .CXYSTX A , SUN , SI flxD.SI NSl N ,<X)SSI IS 

00107 

14* 


PARAM-TY-N NN=4,N*=44,M<=61 ,SN2 = 6 

00110 

15 * 


DIM-XSION XC(MMl,VC<NNl,ZC(NM,1HrC<NN>,PHIC(NNl,W(NNl,H(NNl, 

oono 

16* 


1 DYMNN1 ,D7M NNI ,TSC( NN2 1 ,TSCF< NN21 ,QIR<NN2 > ,0X1 NN 1 , 

001 10 

17* 


1 XSH< 4, NNI, YSH< 4 ,NN1.7.Sflt 4, NN), 

oono 

16 * 


2 XNINNI.YNINM.ZNrNM.XCNN.NM.NYYl.YTNN.MI.MUl.ZINN.^l 

0011 1 

19* 


DATA IKNV.KKVl ,KNV2 / 1, 6H 1 NTHA .6HVKH1C, / 

00115 

20* 


DATA *XX,»'YY,*ZZ / 4. 0,7. 0,6. 5 / 

00121 

21* 


DYTA (PHICIM, 5=1,41/ 160 . , -90 . ,0 . , 90 . / 

00123 

22* 


DATA <TlfTC<N>,N=1 ,41/4*0.0 / 

00125 

2.3* 


DATA XC< 2 > ,XC( 4 1 ,YC< 1 1 ,YC< 3 >/ 4*0.0 / 

00125 

24* 

C 


00132 

25* 


RKAD <5,9021 TSCF.WX.WY.HZ.I-CN 

00144 

26* 


ICAKD = 1CARD ♦ 1 

001.45 

27* 


IP’ <h:n.ik.o.o.or.fcn.C 7T. i oi Him = o.P5 

00147 

2K* 


IF <*X.IF.0.0> *X = WXX 

00151 

25* 


IF (WY. IF. 0.01 WY = WYY 

001 53 

30* 


IF (WZ.LF-.O.Ol *2 : *72 

00155 

31* 


Will = *Y 

00156 

32* 


W<2> = »X 

00157 

33* 


*<31 = WY 

00160 

34* 


«<4l = WX 

00161 

35* 


XC<|1 = *X*0 . 5 

00162 

36* 


XC< 3 1 =-*X*0.5 

00163 

37 * 


YC<21 = *Y*0 . 5 

00164 

36 * 


YC< 4 1 =-WY*0.5 

00165 

39* 


ISC = 4 

00166 

40* 


SIND = 0. 

00167 

41* 


sinshm - o.o 

00170 

42* 


cossun = o.n 

00171 

43* 


605 DO 620 N= 1 , ISC 
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lift 4 

44* 

HIM * *2 

001 1 5 

45* 

/ft Ms 67*0 . 5 

00176 

46* 

TSt'lM = TSCFlM ♦ 460. 

oom 

47* 

IF <TSC(M.IT.O.O) TSl'lM r 0. 

00201 

4** 

«)SP s ttJSO’HICIM + FII-OI 

00202 

49* 

,S|NP z SIMI’Htt'lM + PUfOl 

0020.1 

50* 

CUST s CUStlYflVlM+PI 1*0 » 

00204 

51* 

60 * mnt = si5tnnr<M*pii**o> 

00205 

52* 

DX S -»1M*SINP*0. 5 

00 206 

51* 

m t 6<M*WSr*0.5 

00207 

54* 

111. s H<M*5INT*>0.5 

00210 

55* 

OZ = 11<K)*OO51'*0 . 5 

00211 

56* 

XSIHI.M : ICIM ♦ IW ■ DMtXISP 

00212 

57* 

3SHU.N1 = YC<M ♦ 113 - ra.+sixp 

00211 

51** 

2SIH1.N1 = 7CINI • HZ 

00214 

50* 

xsHi 2 .Ni = xctsi - nx - n^ocisp 

00215 

60* 

>SH( 2 , M s 3C«M - m - «*S»NP 

00210 

61* 

/SH( 2 ,M = 7NHll.Nl 

00217 

62* 

KSHI3.M s XC«M * OX * U^XXISP 

00220 

61* 

VS1K3.N1 s ICIM *110 ♦ IX+SINP 

00221 

64* 

7SH< 3 ,N» i 2CIN) - DZ 

00222 

65* 

XSH( 4 ,N 1 = XCfM - DX ♦ PIMOSP 

00223 

66* 

VSHI4.M = VCIN1 - DO ♦ DI*SINP 

00224 

67* 

7SH<4,Ni = 7SHI3,K> 

00225 

66* 

OUN) = *INl*lltNl/INW*M1> 

00226 

60* 

OX = -W1M+S1NP/NW 

00227 

70* 

DO = #<N1*€riSP/NW 

00210 

71* 

DZ. = HlNI+UJsT/MI 

0023! 

72* 

Dl. s DL/MI 

00212 

73+ 

nON(N) r 0 , S+AHSIDO 1 

00211 

74* 

D7MN1 = 0 . 5*AHS(DZ> 

00234 

75* 

7< N , 1 I r 7C«M-H(M*tt1ST*.5*DZ*.5 

00215 

76* 

DO 610 IS2.KH 

00240 

77* 

610 7<N,M = 7.1N.I-U • DZ 

00242 

7** 

DO 614 * = 1 .Ml 

00245 

70* 

Kl, = Ml*l~2*l 

00246 

60+ 

DS = DI/*KL 

00247 

61* 

XIN, 1,11 = XC<Nl«DS*aiSP ♦,5*<»<N1*S1NP*DX1 

00250 

62* 

YIN, 1,1 1 = YCIN>*DN*SINP *.5*<“*<N)*tYlSP«DYl 

00251 

63* 

DO 612 J=2, NW 

00254 

64* 

XI N, I ,.11 = XIN, 1 , J- l 1 ♦ DX 

00255 

65* 

612 YIN.I.JI = YIN,I,J-I» ♦ DO 

00257 

66* 

614 CONTJNVK 

00261 

67* 

OIRINI = irN*TSC(Nl**4*SJG*aO(Nl/p| 

00262 

66* 

XMN1 = COST+COSP 

00263 

69* 

YN1N1 = COST+S1NP 

00264 

90* 

ZNIN1 = SINT 

00265 

91* 

620 CfWTIMli 

00267 

92* 

TSCI51 =■ TSCFI51 * 460. 

00270 

93* 

TSCI6 > = TSCPI 6 1 ♦ 460. 

00271 

94* 

OIRI51 = KCN+.SIG*TSC«5»**4 

00272 

95* 

OIRI61 = 10CN*SIG*TSCI6)**4 

00273 

96* 

ISC = 6 

00273 

97* 

C 

00274 

96* 

625 CnNTIM.%; 

00275 

99* 

CALL THANH 

00276 

100* 

IF ITINf-MJil.O.Ol RETIRN 

00300 

101* 

TCWT = TSCI 5) 

00301 

102* 

IF IXDI71.GT.0.01 TOONT = XOIT1 

00101 

101* 

C 

0010! 

104+ 

c 

00103 

105* 

DO 660 S = 1 .MAX 

00306 

106* 

CAIJ, TRAVSIN1 
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Mftn 

101* 


IK (10) 656,660,626 

00312 

100* 

626 

CONTI MK 

00313 

109* 


IK 4KZ.LT.0.0) GO 70 627 

00315 

110* 


KSC5 = 4 KSKi 3 > •KSK4 4 • )*4 1 . -H7 >*-0 . 25 

00316 

111* 


KSC6 - (KSK4 1 I»KSKC2 >*HZ*< KSK( 3 >«KSK< 4 ! 

00311 

112* 


GO 30 620 

00320 

113* 

627 

KSC5 = < FSK4 3>*KSK<4»*KZ*<KSK4 1 HKSK42I 

00321 

114* 


KSC6 = < F"SB< 1 1 *KSK4 2 > >*l 1 . *HZ >*0 . 25 

00322 

115* 

626 

COVTIMB 

00323 

116* 


0<t,M = 0. 

00324 

111* 


006 IR = 0. 

00325 

110* 


OO 650 K=1 . ISC 

00330 

119* 


L = K*2 

00331 

120* 


KSC= 0. 

00332 

121* 


IK 4K-5I 629,644,646 

00335 

122* 

629 DO 630 1 = 1.4 

00340 

123* 


DX = XSHI 1 .Kl-XSK 

00341 

124* 


D> = 3SH4 1 ,KI-3SB 

00342 

125* 


D7. = 7-SH4 1 .Kl-ZSK 

00343 

126* 


Bl = RX*DX ♦ BY*UY * B/*DZ 

00344 

127* 


IK (R! .GT.0. I OO TO 631 

00346 

120* 

630 

oontimk 

00350 

129* 


OO TO 650 

00351 

130* 

631 

CONTI Nil-: 

00352 

131* 


DO 679 l=| ,NH 

00355 

132* 


D2 = 7.<K, 1 l-7.SK 

00356 

133* 


DO 630 J=f ,NX 

0036! 

134* 


DX = X(K , 1 ) - XSK 

00362 

135* 


or = Y<K,1,J> - >SK 

00363 

136* 


B| = RX*DX * BV*m ♦ HZ*13Z 

00364 

*37* 


IF 4H1 .IF.O.O) OO TO 637 

00366 

1 36* 


B2 =. -4XMK>*OX ♦ VNIK >*RV ♦ ZN4K)*D7> 

00361 

139* 


IF' 4 B2. IK. 0.0) «> 70 637 

00371 

140* 


R4 = 4DX**2 ♦ DY**2 ♦ DZ**2>**2 

00312 

141* 


CAU, HI/XK 

00373 

142* 


AA = Hl*ll2*F'SK( IOI/R4 

00374 

143* 


F'SC = KSC « AA 

00175 

144* 


KA = AA*I>OK»/PI 

00376 

145* 


IF 4DZ> 632,631,634 

00401 

146* 

632 

KSC5 s KSC5-KA 

00402 

147* 


OO 30 635 

00403 

140* 

633 

KSC 5 = FSC5-FA+0 . 5 

00404 

149* 


F*C6 = KSC6-KA*0 . 5 

00405 

150* 


OO TO 635 

00406 

151* 
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KSC 6 = KSC6-KA 

00407 

152* 

635 CONTI MB 

00410 

151* 


IF 4E«tKKLT.0.04*?GRT(R4>> 00 TO 637 

00412 

154* 


ft . =-l 

00413 

155* 
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II 

00414 

156* 
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00415 

157* 
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CONTI MB 

00416 

156* 

630 CONTIM.B 

00420 

159* 

639 

CONTI NIB 

00422 

160* 


OO TO 640 

00423 

161* 
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KSC = KSC 5 

00424 

162* 


OO TO 640 

00425 

163* 

646 

KSC = KSC 6 

00426 

164* 

640 

IF 4FSC.LT.0.0) FSC = 0.0 

00430 

165* 


CA1X ALPHA 1 ( TSC 4 K>, ALPHA) 

00431 

166* 
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00432 

167* 
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1PACK s IPAGK ♦ 1 

00623 
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196* 
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00656 
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IK CIRKK.NK.2) QO TO 674 

00660 

19*4 
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00675 

199* 

a) TO 675 

00576 

200* 

674 KHITK <6,9511 RKFJ , R6>'2 , < Xtim , 1 = t , 4 1 , TCONT 

00607 

201* 

675 CONTI Mtt 

00810 

202* 

IK 4 l| .l.T.01 W TO *3* 

00612 

203* 

(WIT*: (6,9621 

00614 

204* 

IK 4VV*:.I>:.0> CO TO 679 

00616 

205* 
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00630 

206* 

679 M4ITK <6,9631 

00672 

207* 
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20*4 
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00646 

209* 

6*0 IK CIPRIVT1 699,6*1,6*2 

00651 

210* 

6*1 1.3 = 1*0 

00652 

211* 

12 = 92-4*<ISC*NAMC> 

00653 

212* 

GO TO 6*5 

00654 

213* 

6*2 1.3 = 45 

00655 

2144 

12 = 23 -< 1SC+NAMC) 

00656 

215* 

6*5 CONTI NIK 

00657 

216* 

IF <12.CT.01 OO TO 6*6 

00661 

217* 

12 = 0 

00662 

21*4 

OO TO 69* 

00663 

219* 

6*6 CONTI ME 

00664 

220* 

IF <12. or. MAX! 12 = MAX 

00666 

221* 

WMTE <6,9651 

00670 

222* 

IF < 1PR1NT1 699,695,691 

00673 

223* 

691 6RITE <6,9621 

00675 

224* 

WITE <6,9641 IN.GfNODEIN! , <0< 1 ,N1 , 1 =1 ,*> ,T00MXil ,S= 1 1 , 12 1 

00711 

225* 

OO TO 69* 

00712 

226* 
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00714 

227* 
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229* 
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230* 
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971 FORMAT I12H0 UCATION ,16X, IF3X.9X, IHY.9X.25HZ ' AZIMIYH CONT 
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SUBPROGRAM NAME: Subroutine LPR (IENV) 

SEGMENT NAME: LPR 

PURPOSE: (1) Calculate the thermal environment experienced by the reference 

coordinate system (RCS) located on a lunar plain. 

(2) Calculate the thermal environment by the RCS located in deep 

space. 

DESCRIPTION: The lunar plain thermal environment consists of direct solar 

energy, albedo and infrared energy emitted from lunar plain, and shadow areas, 
and albedo and infrared energy coming from spacecraft surfaces. The 
governing equations describing the incident and absorbed energy calcula- 
tions on the RCS from the plain, shadow, and spacecraft surfaces are 
presented in Section 4.2 of the report. Input to the routine consists of 
solar elevation data, lunar plain thermal properties, and shadow/spacecraft 
location, orientation, and temperature data. 

The deep space thermal environment consist of direct solar 
energy, and albedo and infrared energy from spacecraft surfaces. The 
input to the routine for this option is similar to the lunar plain option. 

The governing equations describing the energy calculations are presented 
in Section 4.5 of the report. 

CALLING PROGRAM: SUBM1 (Main Program) 

ARGUMENT LIST: 

IENV Environment index as read on Card B1 in SUBM1 - (input) 

I ENV=2 is Lunar Plain Environment 
IENV=9 is Deep Space Environment 

All other data required by the LPR subprogram is transferred to the routine 
via block common statements. 
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LPR SUBPROGRAM NOMENCLATURE 


The following is a dictionary of FORTRAN nomenclature used in 
the LPR routine. Also used in the LPR program are the variables of the 

MR and GE1 block common statements which are defined with the SUBM1 (Main 

Program) nomenclature. 

AA Form factor term from RCS node to spacecraft surface 

node 

AC ( K) Spacecraft surface K solar absorptivity 

ALBP Lunar plain albedo, Btu/hr-ft 2 

ALPHA Absorptance of RCS node to incident radiation 

AMOON Absorptance of moon to direct solar energy 

BL Spacecraft solar blockage of the RCS term 

r 0 for blockage, = 442 for no solar blockage 

BM Lunar radiosity in infrared region, Btu/hr-ft 2 

BS Direct solar energy incident on lunar surface, Btu/hr-ft 2 

BXZDXZ (BX)(DX)+{BZ)(DZ) in shadow area form factor calcula- 

tions 


Cosine of angle between RCS node normal vector and 
energy source 


Cosine of angle between energy source normal vector 
and RCS node 


COSS Direct solar energy on Y-Z plane (which is perpendicular 

to lunar surface), BTU/hr-ft2 

°A(K) Node area of spacecraft surface K, ft 2 


DL 

DM 

DS 

DXDZ2 

DXS 


Node length variable used for spacecraft node point 
calculations, ft. 

Differential maximum length used for form factor cal- 
culations from RCS to shadow area, ft. 

Remaining Y distance in shadow area form factor calcula- 
tions, ft. 

2 2 

DX +DZ in shadow area form factor calculations, ft? 

Shadow area increment length in X direction for form 
factor calculation, ft. 
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DYN(K) 

DYS 

DZN(K) 

DZP 

DZ2 

EC ( K) 

EMOON 

ENV(I), 

ENV2 

FATOT 

FI 

FSC 

GOFIR 

GOFIRA 

GOFIRS 

GOSOL 

GOSOLD 

H(K) 

I, J, K 

IENV 

ISC 


Node Y 1/2 length magnitude of spacecraft surface 
K, ft. 

Shadow area increment length in Y direction for form 
factor calculations , ft. 

Node 1 1/2 length magnitude of spacecraft surface K, 
ft. 

Differential height at which a spacecraft surface 
will block solar energy from the RCS, ft. 

DZ 2 , ft 2 

Spacecraft surface K thermal emissivity 
Lunar plain thermal emissivity 
ENV1 , Environment name in A format 


Geometric form factor from RCS to infinite lunar 
plain 

*, Form factor from RCS to spacecraft surface which 

blocks lunar plain energy 

Form factor from RCS to a spacecraft surface or 
lunar shadow area 

Total infrared energy from spacecraft incident on RCS, BTU/hr-ft 

Total infrared energy from lunar shadow areas absorbed 
by RCS node, BTU/hr-ft 2 > 

Total infrared energy from lunar shadow areas incident 
on the RCS node, BTU/hr-ft 2 

Total albedo from spacecraft surfaces incident on the 
RCS node, BTU/hr-ft 2 

Total direct solar energy oh the RCS node, BTU/hr-ft 2 
Spacecraft surface height, ft. 

, KL Indices 

Environment index 

Number of spacecraft surfaces for the environment 
calculations 
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ISO 

II. 12, 


NX 


NN 

NH 

NW 

NS 

PHI C ( K) 

QO » N) 
(2, N) 
(3, N) 
(4, N) 
(5, N) 
(6, N 
(7, N) 
(8, N) 
(9, N) 
00, N) 
(11, N) 
(12, N) 

QIR(K) 

QSH(K) 

QSOL(K) 

QZERO 

R4 

SOL 

TANSUN 

TCONN 

THTC(K) 

TSC(K) 

TSCF(K) 


f W 


Number of lunar shadow areas for the environment 
13 Print indices 

RCS node number 

Number of X increments for lunar shadow area form 
factor calculation 

- Maximum number of spacecraft surfaces allowed 

Number of spacecraft surface node heights 

Number of spacecraft surface node widths 

Maximum number of shadow areas allowed 

Azimuth angle of spacecraft surface K, Deg. 

Total absorbed heat by RCS node N, Btu/hr 
Total incident heat on RCS node N, Btu/hr 
Total direct solar absorbed by RCS node N, Btu/hr 
Lunar albedo absorbed by RCS node N, Btu/hr 
Lunar infrared absorbed by RCS node N, Btu/hr 
Spacecraft albedo absorbed by RCS node N, Btu/hr 
Spacecraft infrared absorbed by RCS node N, Btu/hr 
Direct solar incident on RCS node N, Btu/hr 
Lunar albedo incident on RCS node N, Btu/hr 
Lunar infrared incident on RCS node N, Btu/hr 
Spacecraft albedo incident on RCS node N, Btu/hr 
Spacecraft infrared incident on RCS node N, Btu/hr 

Infrared radiosity of spacecraft surface K, BTU/hr-ft 2 

Infrared radiosity of lunar shadow area K, BTU/hr-ft 2 

Spacecraft surface albedo, BTU/hr-ft^ 

Minimum infrared radiosity of lunar plain, BTU/hr-ft 2 

(Distance)^ between RCS node and energy source, ft^ 

Solar constant, BTU/hr-ft 2 

Tangent of solar angle SUN 

Lunar plain adiabatic surface temp, °R 

Inclination angle of spacecraft surface K, Deg. 

Temperature of spacecraft surface K, °R 

Temperature of spacecraft surface K, °F 
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TSO(K) 

TSDF(K) 

W(K) 

WX(K) 

WY(K) 

X 

XC (K) 

XN(K) 

XS(K) 

XSH( I , K) 

XX 

Y 

YC(K) 

YN(K) 

YS(K) 

YSH (I ,K) 

YY 

Z 

ZC(K) 
ZN(K) 
ZSH(I, K) 


Temperature of lunar shadow area K, °R 

Temperature of lunar shadow area K, °F 

Width of spacecraft surface K, ft. 

Width of lunar shadow area K in the X axis direction, 
ft. 

Width of lunar shadow area K in the Y axis direction, 
ft. 

Node center point X coordinate of spacecraft surface, 

K, ft. 

Center point X coordinate of spacecraft surface K, 
ft. 

Spacecraft surface K unit normal vector X axis component 

Center point X coordinate of lunar shadow area K, ft. 

X coordinate of corner i , spacecraft surface or shadow 
area K, ft. 

X coordinate of lunar shadow area incrimental element, ft. 

Node center point Y coordinate of spacecraft surface 
K, ft. 

Center point Y coordinate of spacecraft surface K, ft. 
Spacecraft surface K unit normal vector Y axis component 
Center point Y coordinate of lunar shadow area K, ft. 

Y coordinate of corner i, spacecraft surface of shadow 
area K, ft. 

Y coordinate of lunar shadow area incremental element, ft. 

Node center point Z coordinate of spacecraft surface 

K , ft. 

Center point Z coordinate of spacecraft surface K, ft. 
Spacecraft surface K unit normal vector Z axis component 
Z coordinate of corner i, spacecraft surface K, ft. 
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IF IKXJIM.LT.O. .OR.KXTlNl.CT. 1 .01 GO TO 846 
IF CACINl.LT.O. .GH. ACINI. CT. 1.01 OO TO 848 
TSCKINl = TSCINl 
TSCINl = TSCINl ♦ 460. 

C 

a VP = COS I PHICIN)*P J 160) 

51NP = SIMPK1CIN)*PI1601 
CCVT = COS<TKTCIN)*pl 1 80) 

606 SINT = SIMTHrCIN)*Pll80) 

DX = -«<N)*SINP*0.5 

DV = »<M*©OSP*0.5 
DZ = HIN )*COST*0 . 5 
VL = KIN)*SINT*0 . 5 


X«WI1,N1 

= 

XCIN1 

4 

DX 

- 

ra*cnsp 

3SHI1.N1 

r 

3CIN1 

4 

m 

- 

DL*SINP 

Z5WI1 ,N» 

= 

7CIN1 

4 

DZ 



X.9CI 2.N1 

= 

XCIN1 

- 

DX 

- 

Dlj*COSP 

35W2.N1 

= 

IC(N) 

- 

D) 

- 

DL*SINP 

Z5W2.N1 

= 

ZSHI 1 , 

,N1 



XSW 3.N1 

= 

XClNl 

♦ 

DX 

4 

COCOSP 

35W 3.N) 

= 

VCIN1 

♦ 

DY 

4 

DL*SIKP 

ZSW3.M 

= 

7CIN1 

- 

DZ 



XSHC4.N1 

= 

XClNl 

- 

DX 

♦ 

DOCOSP 

3SHC4.N1 

= 

3CIM 

- 

m 

4 

DL*SINP 

ZSHI4.N1 

= 

ZSHC 3 , 

,N1 




DAISJ = t(N)*H(N)/(H8tlO 
DX = -«(Nl*SlNp/N* 
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Hi«I 92* DY = «<N>*€OSP'NW 

00262 01* OZ. = mMoCOST/N* 

00263 94* D». = DI./M4 

00264 9S* D>iN<N> = 0.VAK*iUW» 

00265 96* DZNlNI = 0.5*AHMD/I 

00266 91* Z< N, t I s 7C<NI-MI MHXKr*. 5*1)/*. 5 

00261 96* DO 610 1=2. Ml 

00212 99* 610 7.<N,1> = * 07 

00214 100* DO 614 1 = 1, W 

00211 101* Kt. s NH*1-2*I 

00300 102* DS = 1X*6L 

00301 103* XtN.I.H = XC<M*DN*tnsP * . 5*<»<M*SINPM>XI 

00302 104* Y<K,1,H = 3C<N>*DS*SINP ♦ . 5* < -»< M*ttlSP*l* » 

00303 105* DO 612 J=2,NW 

00306 106* X<N,I,.I» r X<N.I,I-H * OX 

00307 107* 612 KN.I.J) = Y<N,l,.l-t» ♦ DV 

00311 I0H* 614 CXJNTIMK 

00313 109* FATX1T s 0.5*<l -SINT» 

00314 110* OOSU, = <RY*SINT-«1S1>COSP*€OSS» 

00315 HI* IF <OOSOt LT.O. » CX>KN. = 0. 

00317 112* OOS1X. = OOStt. ♦ FATXn>AliAP 

00320 113* QUFIR = FATUT*HM 

00321 114* IF <TSC<N) .GT. 0 .0 1 DO TO 616 

00323 115* OIR< N> = 4 AC1N)*«>S<X.«GC>FtR)*tVU*>/PI 

00324 116* TSC1N1 = << AC<N><4X*W.*rc<N»*tXVIR)/<SIG*l-X;<NM >**.25 

00325 HI* TSCF4M = TSCIN) - 460. 

00326 IIP* oowein 

00327 119* 616 CONTI NIK 

00330 120* OIRIN) = <EC<N>* S IC*TSClN J**4 ♦ 1 1 . “KC<NH*GUFIR >+OA<N>/Pl 

00331 121* 616 COVTIMK 

00332 122* OSOUN) = H . -ACINI >*Ol*fll,*IM<NI/pi 

00333 123* XMN> = OOST*COSP 

00334 124* YN<N> = COST*MKP 

00335 125* 2M<N) = SIWT 

00336 126* 620 CONT1MK 

00340 127* OO TO 623 

00341 126* 621 DO 622 N=I,K3X 

00344 129* DO 622 1=6,12 

00341 130* OH.Nl = 0. 

00350 131* 622 CWT1MK 

00353 132* 623 IP USD. IK. 01 GO IT) 625 

00355 133* READ <5,9021 CXStKl ,YSIK>,*X<K> ,WY<M ,TSDF<K) ,K=» , ISO! 

00367 134* 1CARD = ICAHD ♦( ISO* I >/2 

00310 ns* DO 624 K=),ISD 

00313 136* IF <*X<K).L£.0. » OO It) 652 

00315 137* IF <1Y(K)LE.0. » OO IX) 652 

00377 136* TSD(K) = TSDFUO * 460. 

00 400 1 39* OSH(K> s HMOON*SIC*TSDIK>**4 

00401 140* J = NN*K 

00402 141* X5H< 1,J1 = WX<K>*0.5 « X5<K> 

00403 142* X5H<2,JI s XSHd.JI 

00404 143* XSHO.Jl =-*X<Kl*0.5 ♦ X.S1K) 

00405 144* XSH< 4 , J I = X.SHO,J» 

00406 145 * YSWl.Jl = Wr<K»*0.5 ♦ YS<K> 

00407 146* YSH<2,J> =-9\<K>*0.5 ♦ YS<K> 

00410 147* YSHI3.J) = YSH<2,JI 

00411 146* YSHU.Jl = YSHM.H 

00412 149* DO 624 1=1, ISO 

004)5 150* IF 4K.H0. 1 1 OO TO 624 

00411 151* OX = <WX<KH9X<I >1*0. 5 

00420 152* IF «AHS<XS< ll-XSOO) .CE. DX) OO TO 624 

00422 153* OX = <WY<K>*WY< 1 ))*0.5 

00 423 1 54* IF <AI1S<YS<K )-YS< I H.LT.DX) OO TO 654 
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INh 

155* 


624 

onvri^u: 

00430 

156* 


625 

(X6TJM6 

00411 

157* 



CAll. THANH 

00412 

15*** 



IK (TIMK.lK.O.O) Hn\HN 

00434 

1 59* 



a***, = o.o 

00435 

160* 



OOKIRA = 0. 

00436 

161* 



ookirs = o. 

0043? 

162* 



OfX-IR = o. ; 

00440 

163* 



N. = NX. 

00441 

164* 



IK (XO<7).CT.O. » OO TO 629 

00443 

165* 



IK (ISD.IK.O) «1 31) 62** 

00445 

166* 



DO 627 6=1, ISO 

00450 

167* 



IK lABSlXOCI >-XS(k)>.GT.WX<6>*0.5) OO TO 

00452 

16*** 



IK 1 AHS<XO< 2)“VS<6 > ) .ITT. <K>*0. 5> OO 70 

00454 

160* 



TUONT = TSOOO 

00455 

170* 



OO IT) 6 JO 

00456 

171* 


627 

oontimk 

00460 

172* 


626 

TOONT = TDONN 

00461 

»73* 



OO TO 630 

00462 

174* 


629 

TOONT = XO< 7 ) 

00463 

175* 


630 

oontimk; 

00463 

176* 

C 



00463 

177* 

c 



00464 

176* 



DO 660 N = 1 ,HAX 

0046? 

179* 



CA1J. TRANS! N) 

00470 

160* 



*6” (10) 659,660,631 

00473 

161* 


631 

CONTI MK 

00474 

162* 



IK (HZ.l.T.O.O) OO TO 614 

00476 

163* 



FATOT = CKNK( I>*KSK<4> >*(1 .-HZ) 

00477 

164* 



a) TO 635 

00500 

165* 


634 

FATOT = KSK( 1 ) +F!SK< 4 >~ti?>KFSK( 1 ) ♦f'SKI 2 ) ) 

00501 

166* 


635 

KATTH 1 = FATOT*0.25 

00501 

167* 

c 



00 502 

166* 



IF (I5C.LE.0) OO TO 644 

00504 

169* 



», = NX. 

00505 

190* 



OCX'TH = 0. 

00 506 

191* 



OOSflt, r 0.0 

00507 

192* 



OI7, N) r 0. 

00510 

193* 



DO 640 K=1 , ISC 

00513 

194* 



DX = XC(K l-XSK 

00514 

195* 



DY = YCOO-YSK 

00515 

196* 



D7- = ZCCK)-ZSE 

005)6 

197* 



B2 = -(OX*XN.*K) ♦ DY*YN(K) 4 D7AZNOO) 

00517 

196* 



IF (B2.LE.0. ) OO TO 640 

00521 

199* 



DO 632 1=1,4 

00524 

200* 



DX = XSH(|,K)-XSE 

00525 

201* 



DV = YSH(»,K)-YSE 

00526 

202* 



DZ = ZSHC 1 ,K)-ZSE 

00527 

203* 



Bl = HX*OX 4 BY*OY 4 H/AOZ 

00530 

204* 



IF (Bl .CT O. ) OO TO 636 

00532 

205* 


632 

CONTI NIK 

00534 

206* 



OO TO 640 

00535 

207* 


636 

CONTI NIK 

00516 

206* 



FI = 0. 

0053? 

209* 



FSC= O. 

00540 

210* 



DO 639 1=1, Hi 

00543 

211* 



DZ = Z(K. 1 l-ZSE 

00544 

212* 



DO 636 J=1 ,NW 

00547 

2t3* 



DX s X(K.I.J) - XSE 

00550 

214* 



DV r Y(K.l.J) - YSF. 

00551 

215* 



Bl = BX*OX 4 BY*DV 4 BZ*OZ 

00552 

216* 



IF (Bl .IK. 0.0) OO TO 637 

00554 

217* 



B2 = -( XNCK >*OX t YN(K)*DY 4 ZMK>*OZ) 
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W*5 

21** 

IK tB2.lJ-.00> wo TO 617 

00557 

219* 

= <DV**Z ♦ DY**2 • t»:**2>**2 

00560 

220* 

CAIJ. BUXX 

00561 

221* 

M ~ BI*H2»KSK< 10>'H4 

00562 

222* 

IK inZ.LT.O.* K1 = Kl ♦ AA 

00564 

223* 

KSC = KSC * AA 

00565 

224* 

IK m\lK>.I.T.0.04*SOKT<R*>» <*> TO 637 

00561 

225* 

II = - 1 

00510 

226* 

13 s K 

00511 

221* 

a> TO 671 

00512 

226* 

€37 ttKTIMK 

00513 

229* 

IK <AHS»DV».CT.D5N<KH W TO 63* 

00515 

230* 

IK <DX-C£tS5.CK.0.0> OO HI 63* 

00511 

231* 

DTP - -D\*TANStN 

00600 

232* 

IK IAKSlD7-D2P).GT.DZMKII VO TO 63* 

00602 

233* 

RL t 0.0 

00603 

234* 

63* OONTIMt- 

00605 

235* 

639 CONT1MK 

00601 

236* 

FATOT = KATOT - K1*TH<K>/PI 

00610 

237* 

OOK1R = GOK1R * FMXJIRIKI 

00611 

236* 

OOSOL = OKI. * 6'SC*OS(X.lK» 

00612 

239* 

CALI. ALHW1ITSC<K»,A1P*W1 

00613 

240* 

OC7.NI = Qt 7 , N > •* 6'SC*A1 JPICVKJ 1 R C K ) 

00614 

241* 

640 CONTIN.* 

00616 

242* 

cm e.Nis aisa^AsiNi 

00611 

243* 

0(11 ,N> = OOSOt, 

00620 

244* 

Od2.Nl? OOKIR 

00621 

245* 

644 CONTTINl* 

00622 

246* 

IK <ISO tK.0> GO TO 657 

00624 

247* 

DZ = -ZSE 

00625 

24** 

IK (DZCT.-l ,0> DZs-I.O 

00627 

249* 

D72 = DZ**2 

00630 

250* 

006 IRS = 0. 

00631 

251* 

006' IRA s 0. 

00632 

252* 

DO 656 K=t,ISD 

00635 

253* 

J - Kfi*K 

00636 

254* 

DO 645 1:1,4 

00641 

255* 

DX = XSHI ! , J l-XSE 

00642 

256* 

DY = YSHtl.Jl-YSE 

00643 

257* 

B1 = BX*DX * BY+DY ♦ BZ*OZ 

00644 

25** 

IK (B1.CT.0.) OO TO 646 

00646 

259* 

645 conriNL* 

00650 

260* 

OO TO 656 

00651 

261* 

646 NX = XXUO ♦ 5. 

00652 

262* 

DK5 = OXtKI/NX 

00653 

263* 

a. = -Dvs*oz/pf 

00654 

264* 

XX =XS(IO-<»X<K1»DX.5>*O.S 

00655 

265* 

KSC = 0. 

00656 

266* 

DO 654 1=1 ,NX 

00661 

267* 

XX = XX+DXS 

00662 

26P* 

DX = XX-XSE 

00663 

269* 

DXD7Z = DX**2 ♦ 072 

00664 

270* 

BXZDXZ- RX*OX ♦ B2*07. 

00665 

271* 

DS = WY<K> 

006G6 

272* 

DYS = 0. 

00661 

213* 

YY = *S(K»-<WYCK>*0.5» 

00610 

274* 

64* OWT1NIE 

00611 

275* 

YY a YY ♦ DYS*0 . 5 

00612 

276* 

R4 = DXD72 ♦ D1** 2 

00613 

277* 

DYS = 0.03*fl4/DXS 

00614 

276* 

IK IDYS.OT.DSI DYS = DS 

00616 

279* 

IK <DYS.OT.CM> DYS = DM 

00100 

260* 

YY = YY ♦ DYS*0. 5 
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m>x 

261* 

ns - os-ms 

0070 2 

2**Z* 

DA = VY-XSK 

00103 

26J* 

Bl = 

00104 

264* 

IF 1B1 IJ-.O.l OO 1X1 653 

00706 

265* 

R* = (DXD72 ♦ D1**2>**2 

00707 

266* 

CAU. HUKX 

00710 

267* 

KSC = BI*IX.*UXS*FSE( 101/H4 ♦ FSC 

00711 

266* 

653 CONTI MR 

00712 

269* 

IF CDS.CT.O. » <» TT) 646 

00114 

290* 

654 CnvriMK 

00716 

291* 

CA11, A1.PHA1 (TSD(K) ,AI FH-M 

00717 

292* 

QOFIKS = OOFIR5 ♦ FSOQSHOO 

00120 

291* 

OO’IRA - GOFIRA ♦ FSC*OSWIO*AIJ«MA 

00721 

294* 

FATX7T r FATUT - 1-SC 

00722 

295* 

656 a NT IMF! 

00124 

296* 

657 CONTI ME 

00725 

291* 

IF l FATOT. I.T. 0.0 > FAITH* = 0. 

00727 

296* 

0< 9,N> = FATOT* AIHP 

00130 

299* 

OUO.NI: FATXnVW ♦ OOF IRS 

00731 

300* 

GOSOU) = BI^COST 

00732 

301* 

0( 6 ,N> = OOSOID 

00133 

302* 

0< 2,N> = «>S<X, ♦ OOFIR ♦ OOWXJ> ♦ 0(9, N> ♦ OUO.M 

00734 

303* 

0< 3.N)= OOSOUHAMN) 

00735 

304* 

0( 4.N>= 0<9,N)*AS(N» 

00736 

305* 

CAII, AJ.PKXl <TtX)NN .AI.PHA1 

00731 

306* 

Q< 5.N1S FATOT* 176* Ak JltA -» QOFIRA 

00140 

307* 

0< l.NIr Ol 3,NI*0(4,N>*Q(5,N)+O(6,N)*O(7 ( N) 

00741 

306* 

OSIN) = (U*4XD * QI9.N1 ♦ OOSODMSK 

00142 

309* 

QR( N ) = (Q( I0,N>*(X)FIR>+ASK 

00743 

310* 

if (qh<n> . i f. o .o > ansi = o.ooooot 

00145 

31 1* 

AR(N) =(OI5,N)*0(1,N>)*ASE/URIN) 

00746 

312* 

16* (AR(N> .LK.O .0> CAII. Ali'HAtlTCDNT.ARIN)) 

00750 

313* 

CAIi, TA1MIOO .Nl.TCONtND 

00751 

314* 

659 OONTINVK 

00752 

315* 

J s (AIN) 

00753 

316* 

DO 656 1=1,12 

00756 

317* 

0< I.NI s 0< l,N)*ASE 

00757 

316* 

OT( 1,11= CT<r,l)*0(l,NI 

00160 

319* 

656 QTd ,J>=OT< f l,N) 

00162 

320* 

660 COST IMF 

00762 

321* 

c 

00164 

322* 

IF (IREF.NE.2) OO TO 670 

00T66 

323* 

XO<5> = XM( 1 > 

00161 

324* 

XO<6> = >04(2) 

00170 

325* 

XOI7) = W(3> 

00771 

326* 

670 0O5TTINIK 

00712 

327* 

11= 1 

00713 

326* 

MUTE (I01T) TIW.H.WUFtMl.MAX.XD, 1ENV.ENVI ,ESV2 p SLM>,T0nNT,NYM 

00713 

329* 

1 (0(1 ,N),OS(N),OR(N), TOON! N),AS(N>, AR<N>,Nrl ,HAX) 

01024 

330* 

671 OONTIMR 

01025 

331* 

1PAGE s 1 PACE ♦ 1 

01026 

332* 

MUTE (6,950) TITLE, IP«E,TI«,REF< 1 ) ,R***<2 ) ,HDDE(M> ,E>\1 ,ENV2 

01043 

333* 

IF <IENV.b0.9> 00 TO 672 

01045 

334* 

MUTE (6,959) SIND.AMQON , EMXJN 

01052 

335* 

OO TO 673 

01053 

336* 

672 MUTE (6,956) SUM) 

01056 

337* 

673 OOWriMK 

01057 

336* 

IF (ISC.OT.0) MUTE (6,960) (N.TSCF(N) ,XC(N) ,YC(N», ZC( N> ,TKTC(N» 

01057 

339* 

1 PHIC<N),W(N»,H<N>,t)C(N),AC(*>,N=l,ISC> 

01100 

340* 

IF nSD.CT.O) MUTE (6,961) (N.TSDFINI.XSIM.VSCNI.IWNI.WYIN), 

01100 

341* 

1 N=1,ISD> 

01114 

342* 

IF 1 IRW.NE.2> OO TO 674 

onto 

343* 

•RITE <6,9711 Rfc>'l ,<MX l),l = l ,4>,7XXWT,REF2,OW( 1 ),l = l ,4) 
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I 

01134 
0! t 45 
01140 

OHM) 
01 »w 

01154 

01106 

OHIO 

01117 

01204 

01207 

01210 

01211 

01212 

0121.1 

01214 

0)215 

01211 

01220 

01221 

01222 

0)224 

01226 

01231 

01233 

01241 

01250 

01252 

01264 

01266 

01267 

01210 

01272 

01213 

.onto 

01313 

01315 

onto 

01311 

01320 

01321 

01322 
01322 
01322 

01322 

01323 
01326 
01321 

01332 

01333 

01334 

01342 

01343 
01346 

01351 

01352 
01355 

01360 

01361 
01364 
01310 
01371 


344* 
345* 
346* 
341* 
34** 
349* 
350* 
351* 
352* 
351* 
354* 
355* 
356* 
357* 
35** 
359* 
360* 
361* 
362* 
363* 
364* 
365* 
366* 
367* 
36 9* 
369* 
310* 
3H* 
372* 
313* 
374* 
375* 
776* 
377* 
37** 
379* 
3*0* 
3*1* 
3*2* 
3*3* 
3*4* 
3*5* 
3*6* 
3*7* 
3*6* 
3*9* 
390* 
391* 
392* 
393* 
394* 
395* 
396* 
397* 
39** 
399* 
400* 
401* 
402* 
403* 
404* 
405* 
406 * 


00 TO 615 

614 win: <6,951 » R*>l ,HK>2 , < XOU) , I = 1 , 4) .VCDNT 

615 CONTI NIK 

II' 4I1.I.T. 01 GO TO *7* 

•HITE <6.962) 

if o) u> no *19 

win: <6,96ii <4 vv*:<j». turn, .i>. hi. !*>. i= 2 .mm:> 

674 WITH <6,96':<> 

win <6.960 4vv4:m,ianuM:i.i2i 
IF MPIIIVF. 60.-2) *M»TK<6, 951) HFM | ) ,NI>< 2» 

6*0 IF < IPRI VT1 699.61*1 ,6*2 

6*1 II - 1*0 '' 

12 : ko-<im>is»)*mm:i*4 
OO 111 6*5 
6*2 1 3 = 45 

12 = 20-< 1 SC* IND+NAM-:) 

6*5 oontimf: 

IF < I2.GT.O) OO TO 6*6 
12 = 0 
OO TO 69* 

6*6 OTJTIM>: 

IF <l2.CT.HWt 12 = HXX 
MITE 16,965) 

IF HPRIWTl 699,695,691 
691 WITH <6,962) 

•WITH <6,964) <K,GKN(X>:<NMO< l,N»,l=l , 12) ,TH)N<Nt ,Nr| | ,|2» 

00 TO 69* 

695 WITK <6,9521 

WITK <6,951) (KiOmOMNI.Ol I ,N).0<2 l N),11XINIM,Nr| 1 , 12) 

69* IF < 12. tU.HXX) OO 11) 699 

11 s 12*1 

12 - 12*13 

IF < 12. OT. HXX l 12 = HXX* 

1PAGK * IP AGE ♦ t * 

•RITE <6,9501 TiT)K,IPAra,TIM:,Ri>'<1>,Kt}'<2>,Ml»:<M),P*Vt,t->.V2 
IF < I PRINT) 699,695,691 
699 IF IDTIMMJC.O.O) OO TO 625 
tims - Tim-: ♦ utim: 

TIMD= TIM: 

DTINF- -1. 

1 PRINT s -2 
NVM = -2 
OO TO 670 

C 

C SECTION *00, INPIT 6RRCR DIAGNOSTIC MS SAGES 
C 

*38 4RITE <6,940) 13 
OO TO 625 

640 WITE <6,920) ICARD 

11 = NN 

12 = NS 

•RITE <6,93D ISC.II.ISD.12 
GO TO *90 

642 WI1? <6.920) ICARD 
•RITE <6,9321 N 
OO TO 690 

844 «RITE <6,920) ICARD 
•RITE <6,933) N 
OO TO *90 

646 6RITE <6, 920) ICARD 
•RITE <6,934) N.EC(N) 

GO TO 690 

64* MtITB <6,9201 (CARD 
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W*4 

407* 

01400 

40P* 

01401 

409* 

01404 

410* 

01407 

411* 

01410 

412* 

01413 

413* 

01417 

414* 

01420 

415* 

01420 

416* 

01420 

417* 

01420 

41 P* 

01421 

419* 

01422 

420* 

01423 

421* . 

01423 

422* 

01423 

423* 

01424 

424* 

01424 

425* 

01424 

426* 

01 425 

427* 

01425 

42P* 

01426 

429+ 

01426 

430* 
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SUBPROGRAM NAME: Subroutine LCR 

SEGMENT NAME: SUBC1 

PURPOSE: Calculate the thermal environment experienced by the Reference Co- 
ordinate System (RCS) located in or near lunar crater surfaces. 

DESCRIPTION: The EHFR lunar crater thermal environment consists of albedo 
and infrared energy originating from lunar craters, albedo and infrared 
energy from the lunar plain surrounding the lunar craters, and direct 
solar energy. The governing equations describing incident and absorbed 
energy calculations on the RCS are presented in Section 4.2 and 4.3 of 
the Volume I. Input to the routine consists of solar vector elevation 
data, lunar surface thermal properties, and lunar crater location and con 
figuration data. 

CALLING PROGRAM: SUBM1 (Main Program) 

ARGUMENT LIST: None, all data required is transferred into and out of the 

LCR subprogram via block common statements. 


NOMENCLATURE: Listed below is a dictionary of FORTRAN nomenclature used by 
the LCR program. Also used in the LCR routine are the variables of the 
MR, GE1 , GE2, and GE3 block common statements. The MR and GE1 variables 
are defined with the SUBM1 program nomenclature. The GE2 and GE3 block 
common variables are defined following the LCR nomenclature. 


ALPHA 

DC 

ENV1, ENV2 

FAINP 

FAP 

FATOT 


Absorptivity of an RCS node to incident energy 
(Distance) between craters, ft 
Environment name in A format 

Form factor of RCS node to the infinite lunar plain 

Form factor of RCS node to lunar plain (adjusted 
for lunar crater form factors) 

Form factor of RCS node to all lunar craters 


GOFIR Total lunar crater infrared energy incident on an RCS 

node, Btu/hr-ft2 

GOFIRP Total lunar plain infrared energy incident on an RCS 

node, Btu/hr-ft 2 


GOSOL 


Total lunar crater albedo energy incident on an RCS 
node, Btu/hr-ft 2 


GOSOLA 


Total lunar plain albedo energy incident on an RCS 
node, Btu/hr-ft^ 
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GOSOLD 

IENV 

I, J, K 
INC 

II, 12, 13 
N 


Total direct solar energy incident on an RCS node, 
Btu/hr-ft^ 

Environment option index 
Indices 

Number of lunar craters for the current environment 
Print indices 
RCS node number 


QO » N) 
(2, N) 
(3, N) 
(4, N) 
(5, N) 
(6, N) 
(7, N) 
(8, N) 
(9, N) 
(10, N) 
(11, N) 
(12, N) 

SOL 

TA 

TB 


XRMN3 


Total absorbed heat by RCS node N, Btu/hr 
Total incident heat on RCS node N, Btu/hr 
Total direct solar energy absorbed by RCS node N, Btu/hr 
Total crater albedo energy absorbed by RCS node N, Btu/hr 
Total crater infrared energy absorbed by RCS node N, Btu/hr 
Total plain albedo energy absorbed by RCS node N, Btu/hr 
Total plain infrared energy absorbed by RCS node N, Btu/hr 
Total direct solar energy incident on RCS node N, Btu/hr 
Total crater albedo energy incident by RCS node N, Btu/hr 
Total crater infrared energy incident on RCS node N, Btu/hr 
Total plain albedo energy incident on RCS node N, Btu/hr 
Total plain infrared energy incident on RCS node tf, Btu/hr 

Solar constant, BTU/hr-ft^ 

Verticle distance from crater rim to an RCS node, ft. 

Horizontal distance along solar vector from the crater 
rim to an RCS node, ft 

RCS node distance to 1.5 feet above local lunar surface, ft 
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GE2 BLOCK COMMON NOMENCLATURE 


Listed below is a dictionary of FORTRAN nomenclature for the 
variables contained in the GE2 block cortmon statement. GE2 is used by the 
lunar crater environment subprograms and is contained in segment C of the 
EHFR map. 


AMOON 

ASP(K) 

DEPTH(K) 

DIA(K) 

EMOON 

INC 

INCRAT 

RAD 

RTOPIN 

RT0P2 

XK(K) 

YK(K) 


Absorptance of the moon to direct solar energy 
Aspect ratio (diameter:depth) of lunar crater K 
Depth of lunar crater K, ft. 

Diameter of lunar crater K, ft. 

Lunar surface thermal emissivity 

Number of lunar craters for this environment. 

Crater number in which the RCS is located 

Crater spherical segment (radius) 2 , ft 2 

(Radius of top) 2 of crater in which the RCS is located, ft 2 

(Radius of top) 2 of crater, ft 2 

Center point X coordinate location of crater K, ft 

Center point Y coordinate location of crater K, ft 
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GE3 BLOCK COMMON NOMENCLATURE 


Listed below is a dictionary of FORTRAN nomenclature for the varia- 
bles contained in the GE3 block common statement. The GE3 is used by all of 

the lunar crater environment subprograms and is contained in segment C of the 
EHFR map. 


ALBP 

AREA(I) 

COSPHC 

COS PH I 

COSTHC 

COSTHT 

DCSQ 

DGMXSQ 

DPHI 

DTHT 

NPHID 

NPHID1 

NPHID2 

NTHTD 

NTHTC 

PAT I 

PHC 

PHI 

PSMAX 

R 

RTOP 

SINPHC 

SINPHI 

SINTHC 

SINTHT 

SOLFLX 

TC 

TCONN 

THC 

THT 


Lunar plain albedo, Btu/hr ft 2 

Lunar crater node area, ft 2 

Cosine of PHC 

Cosine of PHI 

cosine of THC 

Cosine of THT 

(Distance) 2 between an RCS node and crater K center, ft2 
Diagonal (distance) 2 of largest crater node, ft 2 
Differential azimuth angle of crater node, radians 
Differential elevation angle of crater node, radians 
Number of crater azimuth divisions 
NPHID + 1 

Half the number of crater azimuth divisions 
Number of crater elevation division 

Number of crater corner point elevation data required. 
0.1/R 

Azimuth angle of crater node corner point, radians 
Azimuth angle of crater node center point, radians 
Crater node (at top) dimension, ft 
Spherical radius of crater, ft 
Radius of crater top, ft. 

Sine of PHC 
Sine of PHI 
Sine of THC 
Sine of THT 

Albedo of lunar crater node, Btu/hr ft 2 
Temperature of lunar crater node, °R 
Temperature of lunar plain,°R 

Elevation angle of crater node corner point, radians 
Elevation angle of crater node center point, radians 
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W Infrared radiosity of lunar crater node, Btu/hr ft^ 

WP Infrared radiosity of lunar plain, Btu/hr ft^ 

ZCNTR Z coordinate of spherical center of crater, ft 

ZK Z coordinate of lunar crater node corner point, ft 

ZN Z coordinate of lunar crater node center point, ft 
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SUBPROGRAM NAME: Subroutine SLC 


SEGMENT NAME: SUBC2 

PURPOSE: Calculate the lunar crater nodal geometric data, solar and infrared 

radiosity data, and the nodal temperatures. Also calculate the lunar plain 
radiosities and temperature. 

DESCRIPTION: The SLC subprogram divides each of the lunar craters into 

spherical shaped segment nodes, calculates the associated geometric data, 
and calculates nodal radiosittes/temperature for use in the calculation of 
the lunar crater thermal environment. The geometric data calculated in- 
clude: node areas, node center point coordinates, node corner point coor- 
dinates, and crater sphere radius and center point data. The lunar crater 
and plain radiosities are determined in SLC using the governing equations 
in Section 4.2 and 4.3 of Volume I. Storage of the crater nodal 

geometric/ radiosity data for use in the other crater environmental sub- 
programs (TCI and SUBDFF) is accomplished using a high speed drum (logical 
unit 2). 

CALLING PROGRAM: LCR 


ARGUMENT LIST: None, all data required/generated are transferred into and out 

of this subprogram via block common and high speed drum. 


NOMENCLATURE: Listed below is a dictionary of the FORTRAN nomenclature used 

by the SLC subprogram. Also used by the SLC subprogram are the variables 
of the GE1, GE2, and GE3 block common statements. The GE1 block common 
variables are defined with the SUBM1 program nomenclature, and the GE2 
and GE3 variables are defined with the LCR (SUBC1) nomenclature. 


ALBC 

C0NST1 

Cl ,C2 ,C3,C4 
C5,C6,C7,C8 

INC 

I, J, K 
QZERO 
RI, RJ 
RIMANG 

SOL 

SOLI 

TA 

TB 


Reflectance of lunar surface to solar energy 
Intermediate constant 

Crater constants used in the calculation of crater 
node radiosities and temperature 

Number of craters for this environment 

Indices 

Minimum lunar surface infrared emittance, Btu/hr ft 2 
Radius increments, ft 

Rim angle between top of crater and crater node measured 
parallel with solar vector from -X direction rim, radians 

Solar constant, BTU/hr-ft 2 

Direct solar incident energy on a crater node, Btu/hr ft 2 

Verticle distance from crater rim to crater node, ft 

Horizontal distance along solar vector from crater rim to 
crater node, ft 
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TMIN 

XN 

YN 

ZN 


Minimum lunar surface temperature, °R 
X coordinate of crater node center point, ft 
Y coordinate of crater node center point, ft 
Z coordinate of crater node center point, ft 


f 
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SLC SUBPROGRAM FLOW CHART 



REPEAT 
FOR EACH 
CRATER 


REPEAT ' 
FOR EACH 
£RATER 


/ IS CRATER \ 
NODE SEGMENT N, 
SHADOWED FROM SOLAR 
ENERGY BY CRATER RIM 


CALCULATE RADIOS ITT OF UN- 
SHADOWED CRATER NODE SEG- 
MENT IN SOLAR AND IR REGIONS 


CALCULATE RADIOS ITT OF 
SHADOWED CRATER NODE 
SEGMENT IN SOLAR AND 
IR REGIONS 


CONTINUE 


WRITE CRATER NODE GEOMETRIC AND RADIOS ITT DATA 
ON LOGICAL UNIT 2 
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SUBPROGRAM NAME: Subroutine SUBDFF (QA) 

SEGMENT NAME: SUBC4 


PURPOSE: Calculate the lunar crater environment on a Reference Coordinate 

System (RCS) node. 


DESCRIPTION: Using the lunar crater node geometric data and radiosities 

calculated in the SIC subprogram, the SUBDFF calculates the form factors 
and incident/absorbed energy on an RCS node from each of the lunar craters. 
The RCS node to crater node form factors are calculated using governing 
equations of Section 3.0. If a lunar crater node is too large for the 
form factor analyses, the SUBDFF program subdivides the crater node 
automatically so that the calculations are valid. The incident/absorbed 
energies on the RCS node consist of the lunar crater albedo and infrared 
radiosities. The governing equations for the crater radiosities are pre- 
sented in Section 4,3 of Volume I. p 

CALLING PROGRAM: LCR 

ARGUMENT LIST: 


Q A Lunar Crater infrared energy absorbed by an RCS node 

(output), Btu/hr ft 2 

All other data required by the SUBDFF subprogram is transferred into and 
out of the routine via block common and high speed drum files. 


NOMENCLATURE: A dictionary of FORTRAN nomenclature used by SUBDFF is listed 
below. Also used in the routine are the GET , GE2, and GE3 block common 
statements. The GE2 and GE3 block common variables are defined with 
the LCR nomenclature, and the GE1 block coimion with the SUBM1 (main pro- 
gram) variables. K 


ALPHA 

Absorptivity of an RCS node to incident energy 

ASN 

Area of subdivided lunar crater node, ft 2 

BZC(I) 

BZ*DZ of crater node corner point I 

BZDZ 

BZ*DZ of crater node center point 

C0NST2 

Constant used in form factor calculation of a subdivided 
lunar crater node 

COSBIS 

Cosine of angle between lunar crater node normal and a 
RCS to crater vector 

C0SB2S 

Cosine of angle between RCS node normal and a RCS 
to crater vector 

COSPSN 

Cosine of PSN 

COSTSN 

Cosine of TSN 
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DISMIN 

DISTSQ 


Minimum distance from RCS node to crater node used for 
crater node subdivision calculations, ft 2 

(Distance) 2 from RCS node to a crater node, ft 2 


DMAXP 


Maximum subdivided crater node azimuth angle allowed, 
radians 


DMAXT 


Maximum subdivided crater node elevation angle allowed, 
radians 


DP 

DPSEN 

DSQSN 

DT 

DX, DXSN 

DY, DYSN 

DZ, DZA, 
DZSN 


Subdivided crater node azimuth angle legnth, radians 

(Distance) 2 value used to determine whether the RCS node 
can see a crater node when the RCS is located away from 
the crater, ft 2 

(Distance) 2 from RCS node to a subdivided crater node, ft 2 
Subdivided crater node elevation angle length, radians 
X component of vector from a RCS node to a crater node, ft 

Y component of vector from a RCS node to a crater node, ft 

1 component of vector from a RCS node to a crater node, ft 


DZSNBZ 

DZSNSQ 

DZSQ 

FA Id 

FASN 

FATOT 

GOFIR 

GOFIRN 

GOSOL 

I,J,K,KK, 
IS , JS ,L 


DZSN*BZ 
(DZSN) 2 # ft 2 
(DZ) 2 , ft2 

Form factor from an RCS node to a crater node 

Form factor from an RCS node to a subdivided crater node element 

Form factor from an RCS node to all lunar craters 

Total lunar crater infrared energy incident on an RCS 
node, Btu/hr ft 2 

Infrared energy from lunar crater node incident on an RCS 
node, Btu/hr ft 2 

Total lunar crater albedo energy incident on an RCS node, 

Btu/hr ft^ 

Indices 
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INC 

INCRAT 

NPS 

NTS 

PHIR 

PSN 

RADSE 

RIS ,RJ$ 
RNP,RNT 

SDSQMN 

SESPD 

SINPSN 

SINTSN 

THTB 

TSN 

XC(I) 

XN,XSN 

XPSEN 

YC(I) 

YN,YSN 

YPSEN 

ZDZ 

ZN,ZSN 


Total number of lunar craters for this environment 

Crater number in which the RCS is located. 

Number of azimuth division for the subdivided crater node. 

Number of elevation angle divisions for the subdivided 
crater node. 

Crater node edge azimuth angle, radians 

Azimuth angle of subdivided crater node center point, 
radians 

Radius of RCS node from crater sheri cal center, ft 
Real number values of IS, JS, NPS, and NTS 

9 X maximum crater node diagonal +(SESPD) 2 , ft 2 
R-RADSE, ft 
Sine of PSN 
Sine of TSN 

Elevation angle of crater node lower corner point, radians 
Elevation angle of subdivided crater node center point, radians 
X coordinate of crater node corner point I, ft 

X coordinate of crater node center point, ft 

X value used for DPSEN calculations, ft 

Y coordinate of crater node corner point I, ft 

Y coordinate of crater node center point, ft 

Y value used for DPSEN calculations, ft 
ZSN/DZSN 

Z coordinate of crater node center point, ft 
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SUBPROGRAM NAME: Subroutine TCI (XO, REMU,TCON) 

SEGMENT NAME: SUBC6 

PURPOSE: Determine the crater in which the Reference Coordinate System (RCS) 

is located and calculate the RCS contact temperature with the lunar sur- 
face. 

DESCRIPTION: The TCI subprogram determines which crater the RCS is located 

(if any) based on input RCS timeline coordinates (XO array on Card B2). The 
subprogram then determines the crater node on which the RCS positioned and 
uses that crater temperature as the contact temperature. If the RCS is 
not located in a crater, the subprogram uses the lunar plain temperature. In 
the event the contact temperature is input (TCONT on Card B2) the routine sets 
the contact temperature to that specified by the user. 

CALLING PROGRAM: LCR 


ARGUMENT LIST: 



XO 

Current timepoint RCS location as defined in the MR 
block common (input) 

REMU 

(Distance) 2 of the RCS from the crater center 
it is located (output), ft 2 

in which 

TCON 

RCS contact temperature (output), °R 


All other data required by the TCI subprogram is transferred into 
routine via block common and high speed drum files. 

the 

NOMENCLATURE: A dictionary of FORTRAN nomenclature used by the TCI sub- 
program is listed below. 

DIA(K) 

Diameter of crater K, ft 


DPHI 

Crater node anizuth angle length, radians 


DTHT 

Crater node elevation angle length, radians 


DX 

X distance from RCS to crater center, ft 


DY 

Y distance from RCS to crater center, ft 


INC 

Number of lunar craters in current environment 


INCRAT 

Crater number in which RCS is located 


I,J,K 

Indices 


PHI3 

Azimuth angle of RCS crater location, radians 


RAD 

Spherical (radius) 2 of crater, ft 2 


RCRA, RT0P2 

(Radius of top) 2 of crater, ft 2 


RTOPIN 

(Radius of top) 2 of crater in which RCS is located, ft 2 

TC 

Crater node temperature, °R 
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TCONN 

TCON 

XK(K) 

XO(l) 

X0(2) 

X0(3) 

XO(7) 

YK(K) 

ZCNTR 


Lunar plain temperature, °R 

RCS contact temperature, °R 

X Coordinate of crater K center point, ft 

RCS X position, ft 

RCS Y position, ft 

RCS Z position, ft 

RCS input contact temperature, °R 

Y coordinate of crater K center point. Ft 

Z coordinate of crater spherical center, Ft 
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SUBPROGRAM NAME: Subroutine TVC (IENV, IND) 

SEGMENT NAME: SUBS10 

PURPOSE: Read and print thermal vacuum chamber environment input data, 

initialize chamber parameters, and call the appropriate EHFR thermal 
vacuum chamber option subprogram (CHB or CHR). 

DESCRIPTION: The TVC subprogram reads initial input and data update cards 
describing the thermal vacuum chamber environment and configuration. These 
include: solar lamp grid screen configuration and heat fluxes; chamber 
floor configuration and either node or thermocouple temperatures; 
infrared and solar albedo background energy data; and Lunar Surface Thermal 
Simulator (LSTS) heater element zone temperatures and tier angles. LSTS 
configuration data updated in the SUBI3 subprogram is transferred to TVC 
via a high speed drum (logical unit 4). For the LESTER option (IENV=5) 

TVC rewinds the current output tape (on logical unit 3) for use as input 
into the CHR routine. The TVC program prints out all input data cards 
read during subprogram execution and calls the appropriate EHFR chamber 
option subprogram. 

CALLING PROGRAM: SUBM1 (Main program) 

ARGUMENT LIST: 


Environment option index as read on Card B1 in SUBM1 
(input) 

IENV = 4 chamber environment timeline to be generated 
IENV - 5 LESTER option, chamber LSTS zone powers to 
be matched for the real environments input 

LSTS heater element configuration index (input) 

IND = 1 Read configuration data on logical unit 4 
IND = 0 Configuration data already stored, reading 
logical unit 4 is to be omitted. 


?iL°^ er „ d ? ta /?r red ^ enerated ^ the TVC subprogram is transferred 
into and out of the routine via the block common statements. 


N ° M hoiou TUR n' R ™ nomenclature used by the TVC subprogram is listed 

' rua ;„ rf U ru£ ^ t ^ e TVC routlne are the variables of the CHI, CH2, CH3, 
CH4, and CH6 block common statements. The nomenclature for these block 

are ? efined fol ’°wing the TVC nomenclature. The MR and 
+hi C Z 0 ^ 10 " nomenc ]ature also used in TVC routine are defined with 
the SUBM1 (main program) nomenclature. 


ALAMP 

BLAMP 


Perpendicular distance of pivot from LSTS heater 
element center, ft 

Parallel distance of pivot from LSTS heater element 
center, ft 
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ENVP(IC), ENV1 , 
ENV2 

EPSLMP 

I, J, K 
IC 

IENV 
IFLR 
I LAMP 
I NO 
IN(5) 

IN (6) 

I SOLAR 

IT 

IZ 

II, 12 
N 

NGRID1 

NTC 

NTOT 

NZ 

RADIUS 

THT(J) 


Environment name of chamber IC in A format 

LSTS heater element emissivity 

Indices 

Chamber index 

Environment option index 

Chamber floor data input index 

LSTS heater element data input index 

Stored LSTS data tape input index 

Chamber background data input index 

LESTER option absorbed heat data input index 

Solar lamp data input index 

LSTS heater element zone tier index 

LSTS heater element zone index 

Print indices 

RCS node number 

Maximum number of solar screen grid nodes 
Number of thermocouples 

Total number of chamber floor nodes or total number of 
solar screen grid nodes 

Number of LSTS heater element power zones for this 
chamber 

Chamber floor radius, ft. 

Inclination values of the background data (for 
printed output), deg. 
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CHj » CH2, CH4 , AND CH6 BLOCK COMMON NOMENCLATURE 


Listed below Is a dictionary of FORTRAN nomenclature for the vari- 
ables contained In the CH2, CH4, and CH6 block common statements. These 
block commons are located In segment S of the EHFR map. 

CH] Block Common 

FL(N, IZ) 

IC 


NC(IC, J) 


NCMB 

NLAMP ( IC , IZ, IT) 
NTIER (IC, IZ) 


Form factor from RCS node N to LSTS heater zone IZ 

Chamber index 
=1 MSC chamber 
=2 LTV chamber 


Stored chamber constants for Chamber IC 
J-l Number of solar screen lengths 
J=2 Number of solar screen widths 
J=3 Number of chamber floor radial divisions 
(for nodal breakup calculations) 

J=4 Number of chamber floor angular divisions 
J=5 Number of floor thermocouples 

Number of chambers for which data is stored 

Number of LSTS heater elements in tier IT, zone IZ, 
chamber IC 

Number of LSTS heater element tiers in zone IZ, 
chamber IC 


NZONE (IC) Number of LSTS heater zones in chamber IC 


XL(IC, IZ, IT, 
IL, I) 


XL0(IC, J) 


Initial coordinate data for LSTS heater elements IL, 
in tier IT, in zone IZ, in chamber IC 
1=1 X position of heater element, ft. 

=2 Y position of heater element, ft. 

=3 Z position of heater element, ft. 

=4 Azimuth angle of heater element, radians 
=5 Inclination angle of heater element, radians 
=6 Heater element area, ft^ 

Stored chamber values for chamber IC 
J=1 LSTS heater emissivity 

=2 Perpendicular distance of pivot from LSTS heater, ft 
-3 Parallel distance of pivot from LSTS heater 
element center, ft 
=4 Solar screen modulation 
=5 Solar screen height, ft. 

=6 Solar screen width, ft. 

=7 Chamber floor emissivity 
=8 Chamber floor radial division length, ft 
=11 to 30 Absorptivity of material I (1=0-10) 
to solar lamp energy 
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XLP ( I Z , IT, IL, I) Transformed (after rotation) coordinate data for LSTS 

heater elements 
1=1 X position, ft. 

=2 Y position, ft. 

=3 Z position, ft. 

=4 X component of heater unit normal vector 

=5 Y component of heater unit normal vector 

=6 Z component of heater unit normal vector 


CH2 

Block Common 

ALFSOL 

Solar screen modulation 

HEIGS 

Solar screen height, ft. 

ML 

Number of solar screen lengths 

NGRID 

Maximum number of solar screen nodes allowed 

NW 

Number of solar screen widths 

SFLUX 

Solar lamp flux incident on RCS node, Btu/hr-ft 2 

SOL ( I ) 

Solar lamp flux on solar screen node I* Btu/hr-ft 2 

WIDTHS 

Solar screen width, ft. 

CH4 

Block Common 

A(I) 

Absorptivity of material I to solar lamp radiation 

B ( I Z ) 

Radiosity of LSTS heater elements in zone IZ, Btu/hr-ft 

T(IZ) 

Temperature of LSTS heater elements in zone IZ, °F 

TR(IZ) 

Temperature of LSTS heater elements in zone IZ, °R 

CH6 

Block Common 

QBR(I, J, K) 

Background infrared energy array, Btu/hr-ft 2 

QBS(I , J, K) 

Chamber albedo background energy array, Btu/hr-ft 2 
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CH3 BLOCK COMMON NOMENCLATURE 


Listed below is a dictionary of FORTRAN nomenclature for the vari- 
ables contained in the CH3 block common statement. CH3 contains chamber 
floor data and is located In segment S of the EHFR map. 


BF( I ) 

Radiosity of floor node I, Btu/hr 

DR 

Floor node radial length, ft. 

EPSFLR 

Floor emissivity 

NB 

Number of floor node angular divisions 

NFLR 

Maximum number of floor nodes allowed 

NODE 

Number of floor nodes 

NUMZNS 

Number of floor node radial divisions 

TAV 

Average floor node temperature, °F 

TEMP(I) 

Temperature of floor node I, °R 

TEMTC(J) 

Temperature reading of thermocouple J, 

XF(I) 

X coordinate of floor node I, ft. 

YF(I) 

Y coordinate of floor node I, ft. 
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00201 

39* 



IK 1 IENV.KO. 4) CO IX) 401 

0020.1 

40* 



IK (IM6>.UT.0> GO TO 4(1 1 

0020ft 

41* 



IK II . LT . 0 1 CO TO 401 

00207 

42* 



Ms | 

00210 

41* 



TIMK = -100 

0021) 

44* 



•RITE IIIXO ) TIMK.O 

00220 

4ft* 



KNO kid; KH/r 

00221 

46* 



REWIND IIXT 

00222 

47* 


401 

CONTI MK 

0022.1 

44* 



ENV1 = KNVPMC) 

00224 

49* 



IPAUE = 1 PACK ♦ 1 

00225 

50* 



WHITE 16,950) TITI 1 PAHK.HKKl 1 ) ,RKK( 2) ,ENV1 

0022ft 

51* 

C 



0022S 

52* 

C 


RKAD SCREEN DATA 

00240 

53* 



IF (ISOIAH) 406,402,404 

00243 

54* 


402 

M. = NCI 1C, 1 > 

00244 

5ft* 



NW : NCI IC,2) 

0024ft 

56* 



NTOT = Ml.*NW 

002 46 

57* 



ALFSC*. = XIOIIC.4) 

00247 

56* 



KKIGS = XIjOOC.S) 

00 2 SO 

59* 



WIOTHSr XIOMC.6) 

00251 

60* 



DO 403 1=1,20 

00254 

61* 



J = 1 ♦ 1 0 

00255 

62* 


401 

All) s XIOIIC.J) 

00257 

61* 



RKAD 15,902) MW 

00262 

64* 



ICARD s (CARO * t 

00263 

65* 



on TO 406 

00264 

€6* 


404 

RKAD 15,90ft) ML, NW, SI 74D, HE ICS, WIDTHS „ AI.KSOL 

00274 

67* 



(CARD r I CARD » 1 

00275 

66* 



NTOT = H.*NW 

00276 

69* 



IK INTOT.CT, NCR ID. OH . NTOT. I.K.0 > GO TO 612 

00300 

70* 



IK (HKIGS4W 1 DTHS . IJE .0.0) OO TO 614 

00302 

71* 



RKAD <S,902> A 

00310 

72* 



ICARD s ICARD * 2 

00311 

73* 



IF (ALFSOL.I.K.0. ) ISOl.ARs-2 

00313 

74* 



DO 405 1=1,20 

00316 

75* 



II = 1 

00317 

16* 



IF <4(f). IJF.0.0.OR. All). GT. 1.0) OO TO 816 

00321 

77* 


405 

CONTI MIC 

00323 

V8* 


406 

RKAD 15,902) ISOM I), 1 = 1 , NTOT) 

00331 

79* 



ICARD = ICARD *<NTOT*9)'I0 

00332 

60* 



WRITE 16,952) SUND.AI .FSOL.MKiaS, ML, WIDTHS, NW, 

00347 

61* 



WRITE 16,958) (SOL( 1 1 , 1=1 , NTOT) 

0035ft 

62* 



SUN = SUND*PI 1 HO 

00356 

63* 



SINSUN = SIN! RUN) 

00357 

64* 



COS SUN ; COS (SUN) 

00360 

65* 



DO 407 N=| , NM4X 

00363 

66* 



I = MTRLIN) 

00364 

87* 



ALIN) = All) 

00365 

88* 


407 

CONTINUE 

00367 

89* 



GO TO 410 

00370 

90* 


406 

IF HSOLAR.H>,-2) OO TO 409 

00372 

91* 



WHITE (6,954> 

00374 

92* 



CO TO 410 

00375 

93* 


409 

•RITE (6,956) 

00375 

94* 

c 




1 . 20 ) 


/ 


105 




95* 

C 


READ FUX*H DATA 

00377 

96* 


410 

IF < IFI.H* 416.412,414 

00402 

97* 


412 

N| M/YS s tiCnC. M 

00403 

96* 



NH s NCI It', 4 1 

00404 

99* 



MX: : NCitt',5* 

00405 

100* 



EPSFIJR s XltMir.1l 

00400 

101* 



DH s XI <»< 1C, 6 1 

00407 

102* 



H Allies s OH + MW7NS 

00410 

103* 



HEAD <5,9021 ITIMI'CI 1 l,lt| .NTCI 

00410 

104* 



ICARD = ICARD *IMC*9»/»0 

00417 

105* 



•RITE ( 6 ■ 960 > RAIMIS, MM/NS, NH.KPNFIR 

0042* 

106* 



•RITE <6,962* 

00427 

107* 



•RITE <6,956* mMICI 1 * . 1 = 1 ,NTC 1 

0043* 

106* 



OO Tt* 416 

00436 

109* 


414 

RF.AD <5,905 * M *</. VS, SH.KPSMJI.R AI>H:S 

00444 

no* 



ICAHI> = 1CAHO ♦ 1 

00445 

111* 



Mtn = SR»MWNS 

00446 

112* 



IF < NTCTT . GT . NKI H . <1H . NTIIT. 1 >: . 0 ■ CD Til *16 

00450 

113* 



IF IKPSH.H . I.T. 0 . 0 .OH .KPSFI H .GT. 1 .0* <50 7X1 620 

00452 

114* 



IF < RADII 0 ,0» <50 TO 6 20 

00454 

115* 



IJR = RADIUS'MM/.NS 

00455 

116* 



RFAD <5,902* ITFWPI 1 1, Isl .NTTM 4 * 

00463 

117* 



ICARD s ICAKD ♦ <VWT ♦ 9MI0 

00464 

116* 



•RITE <6,960* RAIMI'S. stMZNS, SR, KPSFIH 

00472 

119* 



WHITE <6,964* 

00474 

120* 



•RITE <6,956* ITENPII* , 1 s | ,VT0T * 

00 502 

121* 


416 

CAU. FIGONM 1C, IFIjR* 

00503 

122* 



GO TO 440 

00504 

123* 


416 

•RITE <6.966* 

00504 

124* 

C 



00504 

125* 

C 


READ BACKOWlfSO DATA 

00506 

126* 


440 

IF < INI 51 . l.T.O 1 GO TO 446 

00510 

127* 



READ <5.902* l < <OBH< 1 ,.I,H » ,K = I , 51 , J = 1 ,4 1 , 1 si , 31 

00524 

126* 



ICARD s ICARD * 6 

00529 

129* 



READ <5.902* < < <QIIS< 1 ,.I,K * ,*= | ,5* , J = 1 ,4* , 1 s| , 31 

00541 

130* 



ICARD s ICARD ♦ 6 

00542 

131* 



•RITE <6,972* 

00544 

132* 



MB si. 

00545 

133* 



DO 444 1:1,3 

00550 

134* 



PHI t :0 . 

00551 

135* 



•RITE: <6,974* ZSE.TWT 

00560 

136* 



DO 442 Jst,4 

00563 

137* 



•RITE <6,976* PHI 1 , <ORH< 1 , J.K * ,ttsi ,5* , <OBS< 1 ,.1,1 

00576 

136* 



PHI 1 = PHI (-*90 , 

00577 

139* 


442 

CONTINUE 

00601 

140* 



ME s ZSE « 2. 

00602 

141* 


444 

CONTINUE 

00604 

142* 



OO TO 420 

00605 

143* 


446 

•HITE <6,970* 

00605 

144* 

c 



00605 

145* 

c 


LAMP DATA 

00607 

|46* 


420 

IF < ILAMP.GE.0* OO TO 421 

00611 

147* 



IF IILAMP.BQ. -2* GO TO 429 

00613 

146* 



•RITE <6,960* 

00615 

149* 



GO TO 426 

00616 

150* 


421 

CONTINUE 

00617 

151* 



WRITE <6,962* 

00621 

152* 



N 7 s NZONEIIC* 

00622 

153+ 



EPSIMP s X1/*< 1C, | * 

00623 

154* 



A! AMP s XLOt 1C, 2* 

00624 

|55* 



HI AMP s XI/MIC.3* 

00625 

|56* 



IF 4 IENV . HO. 5* GO TO 423 

00627 

»S7* 



READ <5,902* T 
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i.5> 



WAs 

IS** 



1 CARD : 1CAHD * 1 

00636 

159* 



•HITE <6 , 984 > ( 1 ,TH », 1 =1 

00645 

160* 


421 

CONTINUE 

00646 

161* 



WHITK < 6 , 986 > 

00650 

162* 



IX) 425 1/.= 1,NZ 

0065.1 

161* 



TH<r/.l= ♦ 460. 

00654 

164* 



BM7.I - F!PSI MP*5 l<»*TH M 7 )** 4 

00655 

165* 



12 = NTIERMC.IZ) 

00656 

166* 



READ <5,902) IXI.I 1C, IZ, IT, 1 ,5», ITrl , l2» 

00664 

1 67* 



ICARD = ICAHD ♦ 1 

00665 

16** 



WKITK<6,96K> IZ.1KM 1C, 17, IT, 1,5), ITrl, l2» 

00674 

169* 


425 

COST IMK 

00676 

170* 



CAM GFtlM < At .AMP , WAMP I 

00677 

171* 



GO TO 426 

00700 

172* 


429 

continue 

00701 

171* 



•RITE <6,981 ) 

00703 

174* 


428 

COST IMK 

00704 

175* 



16* 1 IENV-4)4l0,43O,4l5 

00707 

176* 


410 

CAM CHHIKSVl 1 

00770 

177* 



Rim BN 

00711 

1 78* 


435 

CAM. CHR< I .KPSIMP ,ENV1 ) 

00712 

179* 



IF < 1 . l.T . 0 ) (X) TO 400 

00714 

180* 



CAM. KX IT 

00714 

181* 

C 



00714 

182* 

c 


SECTION 600, INPUT FRROR DIAGNOSTIC MESSAGES 

00715 

183* 


610 

•BITE <6,9201 ICARD 

00720 

164* 



•BITE <6,922) IC,M>« 

00724 

185* 



OO TO 890 

00725 

186* 


612 

•RITE <6,920) ICARO 

00730 

187* 



NCR ID] s NGR1D 

00731 

188* 



•RITE <6,924) NTOT.NGHIDI 

00735 

189* 



OO TO 890 

00736 

190* 


614 

•RITE <6,920) ICARD 

00741 

191* 



•RITE <6,926) HK»GS.»inTHS 

00745 

192* 



CO TO 890 

00746 

193* 


616 

•HITE <6,920) ICARO 

00751 

194* 



•HITE <6,928) NTUT.NB.NIMZNS 

00756 

195* 



OO TO 890 

00757 

196* 


818 

•RITE <6,920) ICARD 

00762 

197* 



•HITE <6,9301 II 

00765 

198* 



GO TO 890 

00766 

199* 


820 

•HITE <6,9201 ICARD 

00771 

200* 



•HITE <6,9321 

00773 

201* 


890 

16' < IKKV.FXJ 5 ICAI.L EXIT 

00775 

202* 



TIME s -100. 

00776 

203* 



RKTtJHN 

00776 

204* 

c 



00776 

205* 

c 


SECTION 900, FORMAT STATEMENTS 

00777 

206* 


901 

FORMAT < 2014 ) 

01000 

207* 


902 

FORMAT < | OF8 . 3 ) 

0100! 

208* 


905 

FORMAT < 21 4 , 9F'8 . 3 ) 

01002 

209* 


920 

FORMAT 4////47H FATAL ERROR IN DATA INPUT FOUND ON CARD NUFWFR, 

01002 

210* 



1 14 , // 52H PROGRAM WIU. CALL F»IT AFTFB THE FOLLOWINO MESSAGE 

01002 

211* 



2. ////» 

01003 

212* 


922 

FORMAT < 50H CHAMBER MMBEH INPUT IS EITHER TOO LARGE OR ZERO. // 

01003 

213* 



1 15H NUMBER INPUT -,U, 20X , 20H MAXIMUM AVAILABLE -.14 * 

01004 

214* 


924 

FORMAT <38H MNWK OF SOLAR SCREEN GRIDS INPUT IS, 15, 20X, 

01004 

215* 



1 20H MAXIMUM AIIOWED IS ,15 > 

01005 

216* 


926 

FORMAT <72H EITHER SOI.AR SCREEN HEIGHT OR WIDTH HAS BEEN INPUT AS 

01005 

217* 



tNHOATIVE OR ZERO. // 10H HEIGKT = ,F1©.3/ «H WIDTH = .FI0.3 1 

01006 

218* 


928 

FORMAT < 64H NUMBER OF' FIOOR NODES REQUIRED IS ZERO OR GREATER THAN 

01006 

219* 



1 A|J OWED. // 28H NLMBER OF NODES REQUIRED s ,15 // 4H KBs, 15 * 

01006 

220* 



2 I0H NVJMZNS = ,15 ) 
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ffWU? 

221* 

01007 

222* 

01010 

223* 

01010 

224* 

01011 

225* 

0I0VI 

226* 

01011 

221* 

01012 

228* 

01012 

229* 

01012 

230* 

01012 

231* 

01012 

232* 

01012 

233* 

01012 

234* 

01012 

235* 

01013 

236* 

01013 

237* 

01014 

236* 

01014 

239* 

01015 

240* 

01016 

241* 

01016 

242* 

01016 

243* 

01016 

244* 

01017 

245* 

01020 

246* 

0102! 

247* 

01021 

248* 

01022 

249* 

01022 

250* 

01023 

251* 

01023 

252* 

01024 

253* 

01025 

254* 

01026 

255* 

01020 

256* 

01021 

257* 

01027 

258* 

01030 

259* 

01031 

260* 

0103! 

261* 

01032 

262* 

01032 

263* 

01033 

264* 

01034 

265* 


FORMAT <Z4H AIISORPTI VITX OK COAT I Mi. I S ,6ZM IX) MM .AM I4MP EMISSION 
I IS KITHW NKXSATIVK OM OHKATKH THAN l ) 

932 FORMAT EITHER FIIXXI H \I)M S OK KMISSlVlTX HIK INPIT As /HID OM 

1 NEGATIVE I 

950 EXMMAT I |HI ,29X, t *A5, 12X, OIPACE. I 4" IS II* Wit I'* 

I A ,2A6,|5H KNV I NONMKNT . > MM) PHIM OK CHAMHEIt DATA IMXT OM DATA 

2 LPDATX. '/ I 

9S2 MMIMAT I20H .MM .AM SCREEN DATA " 37H MX.AM I.AMP IXHIWVATION AMII E 
1 <!»*;> s.KlO.2, 20X, 2fcH SOI .AH SCREEN MWMTKIX s . KT . I / 
l 2IH SCREEN HEIGHT < KT ) 3) H» 2. 10X. 

3 32H MMHKH OK SCREEN ME I Gift' NOOK'S :,I5' i |H St'MKKN *I»>HI «FT> - . 

4 K|0 . 2 , I OX , 32M MMHKK OK SCHKKN »IO|X NOOKS s,!5 // 

5 31H COAT I Mi AHSOHPT I V I TV It) SIN .AH I .AMPS, I OX. 

6 2 2H COATING AHSOHPTIVlTA ' IOIXOX,I.I,K|2. »/l ' 

1 24M SOt .AH SCHKKN MXM- DATA /> 

954 KXIRMAT < i»3H SOI .AH SCHKKN DATA NOT CMANGEll OM IPDATED AT AXIS VINK 
». PREVItX'S DATA INPIT CSKI). * • > 

956 KJR.MAT I 70H SOLAR LAMPS AHK MIT ON. NO SOAR SCHKKN CAICl CATIONS 
I AHK TO HE MADE. //) 

950 KXIRMAT <|OKI2-3> 

960 MMtHATt/ZPHOCHAMIIHt MOOH DATA. /'20H KUXW RADII'S IKTI :,H0,^ 
I32H NIWHEH 0K‘ RADI A|. EinOH NOOKS -.15/ 

232H MMHKH OK’ AMH1AH KIIXJH NOOKS -.15/ 

320H HOOM KMISSIVITA = .K7.3 ' I 
962 K1RMAT 1 45H EKXW 7XKRMJCOI PIE; IKMPKHAIXHK DATA, OKU K. /) 

964 KORRAT 4 3.1H FIOOH NODK! TEMPER ATI RES, OKU K. f I 

966 KXXIMATt /75HOHOOH DATA NOT CHAM1KD OH IPDATED AT THIS TIME. PHKV I 
IOCS DATA INPIT I’SH). //> 

970 KORRATt/POHORXCMlRtMiND DATA MIT CHANGED OR I P DATED AT THIS TIME. 

I PREY IOCS DATA INPIT l.'SKD. //) 

972 EXW.MATI 1 1 7HOHACKOHOCND DATA / / 30X.30H I.R. RU’KOROL’ND, HTl>/HH*ET 

12 ,20X, JOH SfN-AH BACKGROUND. RT1VHH*ET2 » 

974 FORMAT I 3H 7.s ,K*3. 1 , IX , TlflllKTA K6 .I.9H0 .I I 

976 KXWHAT < 6H PHI = ,F5 . 1 ,K9 . 2 . 9KI0 . 2 » 

980 EXJHMATI / 7 5H01 -STS DATA MIT CHAMJKD OH UPDATED AT THIS TIME. PHKV I 
IOCS DATA INPUT USED. //) 

901 KX)RMATI/69H0t.STS HK4TKHS AHK MIT ON . Ml 1-STS HKAT C 41 CITATIONS AR 
IK TO RK RUN-:. > 

902 KXIHHAT I///13H LSTS DATA. /I 

964 KORMAT (SlHOOTS ZONK TKWPKJtATCNKS <0KU FI. ZONK TKMP. / 

I < 40X, l.l.KlO .1)1 

966 KXIRMAT I37HOI..ST.S TIER IMAGINATION Ascii'S «»«». / 

1 4 OH ZONK TIKR 1 TIER 2 TIER 3 > 

988 KXMIMAT 1 13 ,K| 3 . 2, 3KI0 . 2 > I 

END 1 


KNO ok ON f VAC HOB FORTRAN V COMPILATION. 0 *D l AGNOSTIC* MESSACKtS) 


SUBS10 

SVMHOLIC 

09 

MAR 

11 

14:46:03 

0 

01 656! 36 

14 

265 

IDKXKTKD) 

SUBS10 COOK 

RELOCATABLE 

09 

MAR 

71 

14:46:03 

1 

01665334 

60 

1 

tOKlJCTKO) 







0 

01665430 

14 

140 
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SUBPROGRAM NAME: Subroutine CHB(ENVl) 

SEGMENT NAME: SUBS1 

PURPOSE: Calculate the thermal environment experienced by a Reference Co- 

ordinate System (RCS) located in a thermal vacuum chamber. 

DESCRIPTION: The thermal vacuum chamber environment consists of direct 
solar lamp energy, Infrared chamber floor energy. Lunar Surface Thermal 
Simulator (LSTS) infrared heater element thermal emission, solar albedo 
background, and infrared background. The CHB routine calls subprograms 
for: direct solar lamp energy calculations (SCREEN), LSTS infrared heater 

element form factor calculations (FFLMPZ), floor incident and absorbed 
infrared energy (FFFZ), and background energy calculations (BACK). En- 
vironment description data used by CHB is read into the EHFR by the TVC 
subprogram. The governing equations for thermal vacuum chamber energy 
calculations are presented in Section 4.4 of the main report. 

CALLING PROGRAM: TVC 

ARGUMENT LIST: 

ENV1 Chamber environment name in A format (input) 

All other data required by the CHB subprogram is transferred to the 
routine via block common statements. 

NOMENCLATURE: In addition to the dictionary of FORTRAN nomenclature listed 
below, the CHB subprogram uses the variables of the MR, GE1 , CHI, CH2, 

CH3, CH4, and CH6 block common statements. These variables are defined 
with the SUBM1 (main program) and TVC subprogram nomenclature. 


ALPHA 
ENV1 , ENV2 
GIR 

GOFIR 

GOSOL 

GOSOLD 

I, 0, K 
IC 

IENV 


Absorptivity of RCS node to an incident energy source 
Environment name in A format 

Incident infrared energy from LSTS heater zone I or 
from infrared background on an RCS node, Btu/hr-ft^ 

' O 

Total infrared energy incident on an RCS node, Btu/hr-ft 

2 

Background albedo incident on an RCS node, Btu/hr-ft 

Direct solar lamp energy incident on a RCS node, 

. Btu/hr-ft2 

Indices 

Chamber index 
=1 MSC chamber 
=2 LTV chamber 

Environment option index 
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I SOLAR 

Solar lamp operation index 
=-2 solar lamps are off 
V2 solar lamps are on 

IT 

LSTS heater zone 

tier index 

12 

LSTS heater zone 

index 

11, 12, 13, 
15, 16 

Print indices 


N 

RCS node number 


NZ 

Number of LSTS heater zones for chamber IC 


no 



CHB SUBPROGRAM FLOW CHART 



am SUBPROGRAM FLOU CHART 
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m HIW , * MMM.M'IIM 

UNI VAC | | 0«* M HITMAN V I K\F|. 22IM» <10 1 h KMIIMI 

THIS COMPILATION »As IX l\» ON <1 HAM It AT 14 Ml: 00 


I * 


suhiuhtink cim knthy point ooiz.li 

STORAGE OSLO I MOCK. NAME, LENGTH t 


0001 

*CUOK 

001254 

0000 

♦DATA 

000462 

0002 

♦HI ASK 

ooonoo 

0003 

W 

053203 

0004 

OE1 

000043 

0005 

CHI 

0J5554 

0006 

CM2 

000436 

0007 

CM3 

000070 

0010 

CM 4 

000062 

0011 

CH6 

000170 


EXTERNAL REFERENCES l HLOCK , NAME! 


0012 

THANR 

0013 

TC2 

0014 

TRANS 

0015 

SCREEN 

0016 

FFFZ 

0017 

FE1XPZ 

0020 

ALPHA | 

0021 

HACK 

0022 

TABW 

0023 

NAHl’t 

0024 

NIO| 5 

0025 

NI02S 

0026 

Mil A >4 

002T 

Monk J6 


8 TOM AC* ASS I GNMKNT FOR VARIABLES I BLOCK , TYPE, RELATIVE LOCATION , NAME) 


0001 000040 I3SG 

0001 000361 26 IG 

0001 000862 361C 

0001 000012 42SL 

0001 000231 457L 

0001 000463 47 3L 

0001 000748 4M5L 

0001 001072 51 IG 

0000 000050 951F 

0000 000164 957F 

0000 000326 966F 

0003 R 001007 AI.PH4T 

0003 R 00303T AS 

0004 R 000007 BY 
0004 R 000031 COST 

0004 R 000025 DY 

0005 H 025404 FL 
0004 R 000030 GOFIRP 
0000 I 000005 I 


000! 


000121 

164G 

0001 


000414 

2770 

0001 


000601 

372C 

0001 


000704 

4300 

0001 


000300 

460L 

0001 


000535 

475L 

0001 


000764 

49IL 

0001 


001143 

5320 

0000 


000110 

9S2F 

0000 


000210 

95BF 

0000 


00033t 

97 | F 

0006 

R 

000435 

A1.FSOL 

0004 

R 

000003 

ASK 

0004 

R 

000022 

BYT 

0004 

R 

000023 

COSTl 

0004 

R 

000026 

07, 

0004 

R 

000014 

FSB 

0004 

R 

000034 

GOROL 

0003 

1 

004547 

IA 


0001 


000215 

2100 

0001 


000477 

3300 

0001 


000625 

402G 

0001 


000070 

4441. 

0001 


001011 

4630 

0001 


001037 

477G 

0001 


001051 

49SL 

0001 


000567 

674L 

0000 


000126 

953F 

0000 


000252 

962F 

0000 


000372 

9A1F 

0000 

R 

000007 

ALPHA 

0010 

R 

000024 

B 

0004 

R 

000010 

B7 

0007 

R 

000003 

DR 

0000 

R 

000001 

HNV2 

0003 

R 

003703 GEMJOE 

0004 

R 

000036 

OOSOU4 

0005 

1 

000000 

1C 


0001 000250 2200 

0001 000526 340G 

0001 000644 4) IG 

0001 000072 4461. 

0001 001023 470G 

0001 000664 4T9L 

0001 001 110 49*1. 

0001 000607 6751. 

0000 000132 955F 

0000 000321 964F 

0010 R 000000 A 

0003 R 000041 ANA**! 

0004 R 000006 BX 
0004 R 000011 COSP 

0003 R 001326 DTP*; 
0007 R 000005 KPSFIJ1 
0000 R 000006 GIR 

0004 R 000035 OGSOU5 
0003 I 000013 ICARD 


0001 000337 247G 

0001 000551 353G 

0001 000653 416G 

0001 000147 4501. 

0001 000316 4701. 

0001 000740 4621. 

0001 001171 4991. 

0000 000021 4S0F 

0000 000160 95CF 

0000 000324 965F 

0003 R 001327 AL 

0003 R 002173 AH 

0004 R 000021 BXX 
0004 R 000042 OOSSUN 
0004 R 000024 DX 
0004 R 000032 FATOT 
0004 R 000033 G0FIR 
0006 R 000413 WIGS 
0000 I 000000 1ENV 
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0001 


000444 

IMH 

0003 

1 

00044* 

1 1 AMP 

000 1 

1 

000442 

1 * 

ooo i 


000001 

MX 1 

000 i 

1 

01100 1 4 

IP U il- 

0003 

1 

000024 

i pm i st 

0004 

1 

000021 

io 

000 1 

1 

oonoio 

INFF 

OUO 1 

1 

000012 

1 SI' 

OOO 1 

1 

000 4 4 I 

ls) X 111 

0000 

1 

000016 

IT 

noon 

1 

000014 

1/ 

oooo 

1 

00001 1 

1 X 

on no 

1 

000012 

1 1 

oooo 

1 

00(1 II 20 

1 2 

oooo 

1 

000011 

1 1 

noon 

1 

00011 1 1 

»* 

OOOO 

1 

001)11 1 * 

II. 

oooo 

1 

0000(0 

1 

oooo 

1 

00(1110 1 

6 

0003 

1 

000000 

M 

000.1 

1 

oo non i 

Mil 

0006 

• 

non « to 

Ml. 

OOO 1 

1 

ooo* in 

MX IF 

non i 

1 

000002 

MIX') 

0003 

1 

000001 

MNJ) 

ooo.i 

1 

0*2 1.17 

SflHL 

o»oi 

1 

0001)2* 

MTMI S 

OOOO 

1 

000004 

s 

IIIIO 1 

1 

0011006 

S I'll- 

00Q1 

1 

000000 

Ml 

000* 

1 

000247 

M* 

ooor, 

1 

00000 1 

M‘MH 

oon i 

1 

000022 

S6S«‘ 

ooo* 

1 

000027 

SI .Amp 

0OOJ 

1 

000004 

Minx-: 

0007 

» 

000002 

vxx-: 

000* 

1 

00000* 

ST 1 Ml 

0007 

1 

noonui 

M M/vs 

noo i 

1 

00000* 

SIM 

0006 

1 

0004.lt 

Ml 

0000 

1 

000002 


000* 

1 

000002 

S/OSF 

0004 

H 

01)001 1 

Pill 

onai 

« 

00000 1 

PHI 1 

0003 

R 

00001 * 

PI 

0001 

H 

000016 

pi i*n 

000 3 

H 

0062*7 

O 

001 1 

H 

oooooo 

III HI 

ooi i 

R 

000014 

OM' 

0003 

R 

020137 

OH 

0001 

« 

021001 

us 

000 1 

K 

000067 

OT 

non i 

H 

OOOO 2* 

HU 

non « 

H 

00002* 

H* M 

0003 

R 

000026 

HKK2 

0006 

R 

0004 14 

Ml ( X 

0001 

H 

0000 1 7 

SIC 

000 4 

H 

000012 

SIM* 

0004 

N 

00004* 

si NM S 

0006 

R 

oooooo 

MX. 

0004 

K 

0000 17 

MS 

0004 

N 

000040 

M M> 

0010 

H 

OOOO 16 

T 

0007 

H 

000004 

r w 

0003 

R 

00*411 

TOON 

0001 

H 

roooi l 

3VOST 

oon i 

H 

000477 

ITMVf 

0007 

H 

000006 

TKMH* 

000 4 

N 

no ooo* 

1111 1 

000.1 

R 

000021 

TIMK 

000.3 

R 

000020 

TIMM* 

000 1 

H 

000461 

1ITI.K 

0010 

H 

0000*0 

TH 

0006 

K 

0004 12 

»umis 

000 * 

R 

00**40 

XI. 

000* 

H 

0001 I* 

XM* 

000* 

H 

000 124 

XI. P 

000 1 

M 

001 111 

XS 

(too I 

H 

000060 

Ml 

0003 

R 

021641 

XH 

0004 

R 

oooooo 

XSK 

0004 

H 

000001 

IsK 

0004 

N 

000002 

ZSK 






00101 

1* 


HflRTXrriSK CHHIKSVI* 

00101 

2* 

C 


00103 

3* 


PAHAMFTFH NGRIO?2*0 

00104 

4* 


PARASOCTTR KXAX: J.NMAXS420 

0010* 

S* 


OWN / / M l M,1X,KXX->l < Mnii> 1 KMIX»:,SVS1 t SA**:, l(XT. IM6.r,3tVvr, 

0010* 

6* 


1 ISC, ICAHD, IP ALL, PI ,P1 1 xO,SIG,TIMMI,TIM6:,K6M',*<ntl.S, IPRIST. 

0010* 

7* 


2 Rh>‘( 12 > , AN4MK( | M ,»)( 7 * ,071 1*. IS*, HOOF ( 10*, IM 1 * * ,TITLK< 1 4 * 

0010* 

R* 


3 T6>(AT( 20 , 10 * , XlFMATI 20 , 1 0 ) , XSI 7 ) ,1JTIS4-’, 

0010* 

9* 


4 AM KMAX 1 , AR( SMAX > , 4SINHU > .LKMXIFI SH1X ) , 1 At SM\X > ,71'IM 'HU 1 

0010* 

10* 


* Ol I2.*MAX*.0HCSMAX >,OSINMAX*,XH<6MAX,NM7X. tO»,HINI (SH7X* 

00106 

II* 


Kill 1 VAl»CK I R* 6 ( , MFF< 1 > > , l R6> 2 , RKKI 2 > > 

00107 

12* 


COMM /OKI / XSK, 3SK. ZSK. ASK, PHI 1 ,TMTI .KX.B* .BZ.COSP. SUSP, PHI , 

00107 

13* 


i fskim.hxx.hiy.costi ,ox,m ,i>z, io.uofihp. 

001 07 

14* 


1 COST. P'ATOT.OOPIR, COSOI. ,OOsn»J»,«)S«X/l,Sl^, MINI*. SISS1 is, «ISSIS) 

00110 

1** 


COMJN /CHI/ 1 C , KOW, N/OSKI 3 * , NT 1 ER( 1 , 6 * , M AMP< 3, 6 , 3 1 , XI JO( 1 , 30 * 

00110 

16* 


1 NC<3,1M,XI.P<6, 3,25,6 *,XM 3.6. 3,2*,6 >,>1.(700,6* 

00111 

17* 


COMON /CH2 / SOLIMJHIO* ,M,, Ml, WIDTHS, HKIUS.SFU*. 4I.FMX. 

00112 

1 R* 


COWOK /CM3 / NB,Slf4/SS, NOU6:,CW,TAV,6:PSHR,7»m;( *0* 

00113 

19* 


CONON /CH4 / A(20*,fH !0>,T( 701 ,TH( I0> 

00114 

20* 


COMO) /CH6/ OHR ( . 1 , 4 , * > , OHS (3,4,** 

0011* 

21* 


hquivalfnck i im2*. isolarj ,i inij>, iiijd,< in<4>, harp* 

00116 

22* 


DATA IENV / 4/ 

00120 

23* 


DATA KNV2 / 6HHAMHFR / 

00122 

24* 


NZ s NZOSKI IC> 

0012.7 

25* 


16* UIAMP.N6;. -2 > 00 TO 42* 

0012* 

26* 


NZ s 0 

00126 

27* 


Us* 

00126 

2R* 

C 


0012T 

29* 

42* 

CONTI NIT? 

00130 

30* 


CAU. TRASR 

00131 

31* 


16* (TIMR.IJJ. 0,0* R6TIJHN 

00133 

32* 


CALX. TC2<XO,TOONT> 

00133 

33* 

C 


00134 

34* 


DO 460 N = 1 .MAX 

00137 

3S* 


CALL TRANSCN* 

00140 

36* 


IF ( IOJ 457,460,430 

00143 

37* 

430 

continue 

00143 

30* 

C 


00144 

39* 


IF < (SOLAR. H). -21 on To 444 

00146 

40* 


IF (COST.LK.O. » GO TO 444 

001*0 

41* 


CAIL SCHKKN 

001*1 

42* 


COSOU) t S61L<X*COST*ALFSOL 


113 



I 

001 S3 

00154 

00155 
001 5ft 
00151 
00151 
00160 
00162 
00163 
00166 
00161 
00110 
00111 
00112 
00173 
00175 
00116 
001 71 
00200 
00201 
00202 
00202 

00203 

00204 

00205 

00206 
00207 
00212 

00214 

00215 

00216 
00211 
00222 

00223 

00224 
00226 
00227 
00231 
00231 
00233 

00235 

00236 

00237 

00240 

00241 
00241 

00272 

00273 

00274 

00275 
00312 
00317 
00321 

00323 

00324 

00325 
00327 

00332 

00333 

00345 

00346 
00350 


4 3 * 

44* 

45* 

46* 

47* 

4M* 

40* 

50* 

51* 

52* 

53* 

54* 

55* 

56* 

57* 

56* 

59* 

60* 

61* 

62* 

63* 

64* 

65* 

66 * 

61* 

66 * 

69* 

70* 

71* 

72* 

73* 

74* 

75* 

76* 

71* 

16* 

79* 

60* 

61* 

62* 

63* 

64* 

65* 

66 * 

67* 

66 * 

69* 

90* 

91* 

92* 

93* 

94* 

95* 

96* 

97* 

96* 

99* 

100 * 

101 * 

102 * 

>03* 

104* 

105* 


442 0 <:i > N> = AI.INWUOMMJ) 

GO 70 446 
444 UWIID = 0 , 

Ol »,M i 0 

446 CONTINUE 

CALI, ►»'/.< N ,1)1 5 ,N ) ) 

1 6 ’ ULAM 6 .UO . -21 UO TO 450 
CALL KH MHZ I N ( 

GO 446 1 = 1 .NZ 
G IK : S'l .IN, I 1*111 I I 
GOf' IK = (JOHN * OIK 
K = 6 ♦ I 

CAN. At ,PHA I < TH U » , ALPHA 1 

447 OIK,N>= OIK* ALPHA 
446 CONTI NI K 

450 COST I NIK 
C 4 U. RACK < C* I R > 

GOS’IR = GOS 1 R ♦ CIR 
CALL ALPHA 1 < 500 . 0 , ALPHA > 

OI 6 , N I s GIK*ALPH 4 

0 ( 4 , Nl s ALIN>*COSOL 

osiN) si co soi, ♦ cost xj»* ass: 

QRINl s COS' I H + 4 SK 
Ol 1 ,N> = 0 . 

Ol 2 ,N ) s COSTR»GOS<XJ)*GOSOL 
DO 456 1 = 3 , K 

456 Oll,Nl s Ol 1 , N) * OII,NI 
CALI. TAHWIOI 1 ,N>,TCOMN> ) 

451 CONTI M IK 
J s IAIN) 

DO 456 1 = 1 , K 

04 I ,N> s 0 < I ,N)*ASK 
OTI I ,1 Is OTH , I 1 *Q( I ,N> 

456 OT< I ,.l 1 = OTl I , J 1 tO(l ,N) 

ARCN) sIQI | ,N)-OS 4 M*AI .INtl/OHIN) 

IK I ARt N I . |> 1. 0 - 0 ) CAI 4 . ALPHA! IIOONT, AR< N I ) 

460 COVT I Nl IS) 

IS’ I IRST.NS:. 2 ) OO TO 470 
XOl 5 > I XN< 1 > 

KOI 6 ) = KNI 2 1 
KOI 7 ) = XNI 31 
470 CONTINUE 

WRITS: CKXT) TIMK.M, MOOS.'IM), MAX, XO, ISNV.KNVI .SXVZ.SUND, tcont.nvm, 
I (Ol | , N) , OSIN) ,QR< N) ,TCON 4 Nl , ALIN) , ARIN) ,N=| ,MAX> 

II = I 

15 = 6 *NZ 

iPAce = ipacs: ♦ i 

WRITS: 16,9501 TITLE, I PACK.TIME.RES'I I 1 ,RS:S'< 2 1 .MOORIMl , ENV| ,ENV 2 
WRITS: < 6,9551 SUND.TAV.EPSFIR 
IF I ILAMP.NE.- 2 > GO TO 473 
WHITE 16,9611 
GO TO 475 
473 CONTINUE 

WRITE 46,9561 
DO 490 JZ= 1 ,NZ 

16 = NT I SR ( 1 C, IZ> 

490 WRITE < 6.9561 »*, B< l?.l ,T< IZ 1 , 1 XLI 1 C, IZ, IT, I , S »,IT=I , l«> 

4 T 5 CONTINUS: 

if iiks:f.ns:. 2 > oo to 674 

•RITE 16,9711 RS-S'I . 0 ( 0111,1 si, 41 , TCONT,REF 2 ,fXNm t ls| ,41 
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i 

1 

106* 


00366 

107* 


0037? 

106* 

i 

00400 

109* 


00406 

no* 


00410 

111* 

v 

00413 

112* 


00423 

113* 


00425 

114* 


00434 

115* 

s 

00441 

1 16* 


00444 

117* 


00445 

116* 


00446 

119* 


0044? 

120* 

|S 

00450 

121* 

i 

00*51 

122* 

i 

00452 

12.1* 


00454 

124* 


00456 

125* 

■ 

00461 

126* 

; 

0046? 

127* 

i 

00 472 

126* 


00504 

129* 

i . 

00505 

130* 

0050? 

131* 

r 

00521 

132* 


00523 

133* 


00524 

134* 

K 

00525 

135* 


00527 

f 36* 


00530 

137* 


00545 

136* 


00550 

139* 


00552 

140* 


00553 

141* 


00554 

142* 


00555 

141* 


00556 

144* 


0055? 

145* 


0055? 

146* 


00557 

147* 


00557 

146* 


00560 

149* 


00560 

ISO* 


00560 

151* 


00561 

152* 


00561 

153* 

\ 

00561 

154* 


00561 

155* 


00562 

156* 


00562 

157* 


00563 

156* 

\ 

00564 

159* 


00564 

160* 


00564 

161* 


00564 

162* 


00565 

163* 


00566 

164* 


00566 

165* 


0056? 

166* 


0056? 

167* 


00567 

166* 


UO TO 675 

674 <6.95l» HKF|,MEK2,<KOl I >,l?| ,4>. rmvr 

675 CXINTIMK 

»KITE <6,9t»?H »Z. I/.= | ,N/> 

IK (MMK.I/.Oi <XI TO *79 
DO 477 .1=2. NAME 

477 91IITK <6,4661 ANAMFU I . <UT< I > , I ;| . | s» 

479 9K1TK <6,966 » 

•WITH 16 , 466 * AN ARM I ).<tir« I , I *. » z \ , I > 

17’ <IPHI\THJ-2» fell M>'< 6 , 957 > HKXII.HKM^ 

440 If (ll’HIM I 494 , 46 1 , 4*2 

461 ll : |60 

I 2 = 5/ - 4*N2 
OO TO 465 

462 ll = 45 

•2 : 10-NZ 
4*5 CONTI M K 

16* <I2.UT.M\V> li : MAX 
1H ITE <6,465) 

16' < (PRINT) 499,495,491 

491 UNITE I6.462M I, l = | ,KX> 

492 DO 493 Nsl|,l2 

49.1 6HITE <6,964) N.GKVOOEfNI .TWMN) , IO< I ,N) , 1 = | , 15) 

00 TO 446 

495 •RITE <6,952* 

•«ITK <6,953) (N.CI-MIOKNJ.OI l,N*,OI2,^l,TCOS.N*.N-|| ,l 2 » 

496 16* <12. 60. MAX) OO TO 499 
*1 * 12*1 

f 2 * 12*1.7 

IK < I2.GT.M4X) 12 = MAX 

1 PAGE = I P ACK « | 

•HITE <6,950) TITIJ?, IPAGK,TIMK,R1T< | ) ,flK)'< 2* .MHOlltHI ,WVI >XV2 
16' < (PRINT) 499,495,491 
499 IK (OXIME. IJK. 0.0) OO TO 425 
TIW i TIME « DTIME 
TIM60: TO*: 

DTIMKr -1. 

(PRINT : -2 
MR:.} 

00 TO 470 
C 

C SECTION 900, fOHMAT STATEMENTS 
C 


950 FORMAT <9MI TI6E.2IX, UA5, 12X.4HPAC6;, 14 /9H <WO,/K|0.J/ 

I 30X.2A5, 6H IN A , A5.29HINQ MODE IS LOCATED IN A 
2.2A6.I5H ENV I RONMEVT . //) 

951 KORMAT < 2H0 , 2A5, I6X, IHX.9X, |H¥, 9X. 25HZ AZIMUTH CCKTACT 7 

I I0H tOCATION.tex. 45HCFT) <PT) 1PT» (nH1 , «, 

2MP / 20X.3K10. 2,2610. I /// 

3 40H SUMMARY 06' THE THERMAL ENV I ROWOCNT . / ) 

952 KORMAT <4<32H NODE NODE O O AO « >/ 

I 4I32H NO. NAME ABSOR INCID TtMP )) 

953 6TJRMAT <4f5X, 1 3 , IX, A5, 3K6 . 1 ) I 

955 E0RM4T IJ3H ENV I RONMENT , ITX.I6HSUN ANGIE (DEO* s , P7 t // 

1 30X, 37HAVERAGE 61 COR TEMPERATURE 106D K) - 

I K7.2, 20X, I6H61C0R EMISSIV1TY = 

1 K6.3) 

958 FORMAT ( 30X, (4 , FI I . I , 5K10 . 1 1 

85T FORMAT <//// 2X.2A5.102H ENV I ROWE NT IS THE SAME AS THE PREVIOUS 
ITIMK POINT. SEE THAT PRINTOUT FOR DETAILED NODAL 611* DATA I 

956 6Y1RM4T<//25X,67H UlMP PO*KR LAMP lAMPlNCl I NAT I 

ION ANGLES, IDFXJ) /30K.55H ZONE PER (.AMP TfcMP TI6» 

ITI6H TIER / 30X.55H NO. H/H/6T**2 06X1 K I 
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Hi? I«9* 12 3 » 

00370 170* 962 PXJHMAT < 52X , 22HAttS0H«p:0 HKAT, WlV'HH / 

00570 171* 1 1 1 OH MUX-: AO *\i.t. tovai. topal soi.ah SCX, AH I’M a 

00370 112* 2MI1 l.H. 7<)NK 74JNK /(•NK ZOnK * 

00310 11.1* 3 MH NO. NAMP; TPMP AI1SOH INCH) I AMI'S AI.HMXI HO 

00510 174* 2<* , JX , 1HHCK UNO, I 7 , 1. 1 9 > 

00511 175* 9«4 PXX1MAT < I 4 , 1 X , A5 , 1 IP'9 . 1 > 

00312 116* 965 PXXIMAT MM ///» 

00513 111 * 9bb POHHVr I 5X, A 3 ,9X , 1 2*9 . I » 

00514 IIP* 971 PXXIMAT « 1 2M0 IOC AT ION , I 6X, MIX , 9X , MIA . 9X. 25H/ AZIMITM COM' 

00314 119* I ACT /26X.43IMPT1 IPT> «PTI IDPOI TPMP H / 

00,314 1P0* 2 I2X.A3, 3X.5P10.2 / 1 2X . A5 . iX , »M» . 2 *>* 

00574 IP1* .1 40H MMHAKY OP' T1IK THP'HMAI . P:\VIHONMPM . /f 

00515 | P2* 9P I «X«HATt/69H01.STS HKATKHS AUK Mir ON. N> l.STS HP AT CAlJCHATIOVi AH 

00515 »P3* IK TO BP: MAOK. > 

00576 l«4* PAD 

RND OP' CMVAC HOP PDHTHAN V COMP MOTION, 0 *D»AOMlSTIC* MKSSACP’I S> 


8CHS 1 


SAMBOL1C 

31 

MAH 

71 

14: 17:10 

0 

02167440 

14 

IP4 

lOHKTKlif 

SCBS1 

coop: 

rkiocatablp: 

31 

MAR 

71 

14:17:10 

t 

0 

02174460 

02174554 

60 

14 

1 

97 

• npi.prrKO^ 
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SUBPROGRAM NAME: Subroutine GEOM (ALAMP, BLAMP) 

SEGMENT NAME: SUBS2 

PURPOSE: Transform the LSTS heater element coordinate data and calculate 

the LSTS heater element unit normal vector components. 

DESCRIPTION: The GEOM uses the LSTS heater element zone inclination angles 
(read into the program by the TVC subprogram on Card FI 2) to transform 
the coordinates and calculate unit normal vector data for use in form 
factor calculations. 

CALLING PROGRAM: TVC 

ARGUMENT LIST: 

ALAMP Perpendicular distance of pivot from heater element 

center (input) 

BLAMP Parallel distance of pivot from heater element center 

(input) 

NOMENCLATURE: The FORTRAN nomenclature listed below is used by the GEOM 
subprogram. Also used by the GEOM program are the variables of the CHI 
block common statement which are defined with the TVC nomenclature. 

Cosine of THT2 

Radial distance difference from chamber origin 
Heater element height difference 
Indices 

IL Heater element index 

IT Heater zone tier index 

IZ Power zone index 

PHI 2 Heater element azimuth angle, radians 

SINT Sine of THT2 

THT2 Transformed heater element inclination angle, radians 


COST 
DELD 
DELZ 
I, J, K 
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GEOM SUBPROGRAM FLOW CHART 


^ Start 


Calculate transformed heater element 
coordinates 

Calculate heater element unit normal 
vector components 





Return 




• TOR,* M.IRN2 ,SUHS2 

l**IVAC 1108 FORTRAN V I.KVKL 2206 0018 KSOI-M 
THIS COMPUTATION *AS OHM! ON 31 MAR 71 AT 14:14:09 


it MAM 71 


M: 1 A 


SlAROtTI NK (VEHM 

ENTRY POINT 000170 

STORAGE USED 

(HIACK, 

NAME. IKNIiTH I 

0001 

•cow 

000207 

0000 

♦DATA 

000046 

0002 

♦WANK 

060000 

0003 

CH| 

035554 


fiKTKRNAL RKKKRKNCKS I MOCK, NAMK1 

0004 COS 

0005 SIN 

0006 NKRR35 


STORAGE ASSIGNMENT TOR 
0001 000012 106G 

eooo r ooooio onx 

0000 I 000003 IT 
0003 I 000001 M>« 
0000 R 000000 SINT 


VARIABLES 4 B1ACK, TAPE, 

0001 000026 1 1 20 
0003 R 025404 El. 
0000 I 000001 I 7 
0003 I 00002? Nl JIMP 
0000 R 000004 TKT2 


RELATIVE MX.' AT ION, NAME ► 

0001 000104 1 2 JC 

0000 I 000000 I 
0000 I 000002 J 
0003 t 000005 NT IKK 
0003 R 005540 XL 


0000 H 000005 COST 
0003 I 000000 1C 
0000 1 000011 K 
0003 I 000002 N/nNP 
0003 R 000115 XIO 


0000 K 00000? DMA 
0000 I 000012 II. 
0003 I 000247 NC 
0000 R 000013 PIN 2 
0003 M 000124 XI H 


00101 

18 


SI WAIT INK QHM 4 Al AMP.HIJ 1 MP! 

00101 

2 * 

C 


00103 

3 * 


CO**N /CHI/ IC,NCNB,NZONKI 3 > ,NTIER 4 3 , 6 > ,MAMP( 3 , 6 , 3 > ,X 1 A( 3 , . 1 ©? , 

00103 

48 


1 NCI 3 , IS! ,KIJ*( 6 , 3 , 25 , 6 ! ,XLI 3 , 6 , 3 , 25,6 !,M .4 700 , 6 1 

00103 

58 

C 


00104 

68 


laNZONMIC! 

00105 

78 


DO ) 1 Z= 1. 1 

•0110 

88 


JsNTIMKIC.IZI 

001 II 

08 


DO | »T=I,J 

00114 

108 


TKT 2 :XL(tC,IZ, IT. 1 , 51 / 57.2058 

00115 

118 


COST a COS 4 THTZ • 

00116 

128 


SINT s SIN 4 TMT 2 ! 

001 IT 

138 


OKI A a BLAMP*SINT*ALAMP 8 f l.-COST! 

00120 

148 


Mi S AtAMP*SINT-BLAMP*( 1 . •COST! 

00121 

15 * 


KaNLAMPOC.IZ, IT) 

00122 

168 


00 | ILsI.K 

00125 

IT 8 


PHI 2 = XL( 1 C, IZ, IT, IL, 4 ) 

00126 

188 


XLPI IZ, IT, IL, 1 !:XL 4 1 C, IZ, IT, IL, 1 )-WU>* 005 ( PHI 2 ) 

00127 

198 


XLPI IZ, IT, IL ,2 !:XL( 1 C, IZ, IT, IL, 2 I-WU 38 SINIPHI 2 ! 

00130 

20 * 


XLPIIZ, IT, IL, 3 ) a XL( 1 C, IZ, IT, IL, 3 ! ♦ OKLZ 

00131 

21 * 


XLPI IZ, IT, IL, 4 > = COST 4 COSCPHI 2 ) 

00132 

22 * 


XLPlIZ.IT.IL, 5 ) s COST 8 S 1 Nf PHI 2 ! 

00133 

23 * 


XLPI IZ, IT, lL, 6 ) a SINT 

00134 

24 * 


I CONTINUE 

00140 

25 * 


RKTIIRN 

00141 

26 * 


KNO 


00003740 


00003010 

•0003820 
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SUBPROGRAM NAME: Subroutine FFLMPZ(N) 

SEGMENT NAME: SUBS3 

PURPOSE: Calculate the form factor from a Reference Coordinate System 

(RCS) node to each power zone of an LSTS heater element array. 

DESCRIPTION: The FFLMPZ subprogram uses the transformed coordinate/normal 

vector data calculated in GEOM and calculates the form factors from a 
RCS node to each LSTS power zone. The form factor calculation techniques 
presented in Volume I are used In this subprogram. 

CALLING PROGRAMS: CHB, CHR 

ARGUMENT LIST: 


N 


RCS node number (input) 

NOMENCLATURE: In addition to the following FORTRAN nomenclature, the FFLMPZ 

subprogram uses the GE1 and CHI block common variables. These variables 
are defined with the SUBM1 (GE1 ) and TVC (CHI) nomenclature. 

B1 


Cosine of angle between RCS node normal vector and 
heater element energy source 

B2 


Cosine of angle between heater element normal vector 
and RCS node 

FA 


Form factor from RCS node to LSTS heater zone 

I, 0, K 


Indices 

IL 


Heater element index 

IT 


Zone LSTS heater tier index 

IZ 


Power zone index 

R4 


(Distance)^ from the RCS node to a heater element, ft^ 
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SUBPROGRAM NAME: Subroutine FFFZ(N, QT) 

SEGMENT NAME: SUBS4 

PURPOSE: Calculate the incicent and absorbed energy on a Reference Coordinate 

System (RCS) node due to emissions from the thermal vacuum chamber floor. 

DESCRIPTION: Using the floor nodal coordinate and radiosity data calculated 
in the FLOORN subprogram, FFFZ calculates the form factors, and incident/ 
absorbed energy on an RCS node from the, floor. The program requires 
minimum distance of 6" from an RCS node to the floor and sets it to th 
value if it is not. 


CALLING PROGRAMS: 
ARGUMENT LIST: 

N 

QT 


CHB, CHR 


RCS node number (input) 

Total floor energy abosrbed by the RCS node (output), 
Btu/hr-ft2 


NOMENCLATURE: In addition to the FORTRAN nomenclature listed below, the FFFZ 

subprogram uses the variables located in the GE1 and CH3 block common. 

These variables are defined with the SUBM1 (GET) and TVC (CH3) nomenclature. 


ALPHA 

B1 

DQ 

GOFIR 

I 

RR 

QT 


Absorptivity of RCS node to floor node energy 

Cosine of angle between the RCS node normal and floor 
nodes 

Floor node energy incident on RCS node, BTU/hr-ft 2 
Incident energy from floor on RCS node, Btu/hr-ft 2 
Floor node number 

(Distance)^ between RCS node and floor nodes, ft^ 

Total floor energy heat absorbed by RCS node, Btu/hr^ft 2 
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SUBPROGRAM NAME: Subroutine BACK (QR) 


SEGMENT NAME: SUBS 5 

PURPOSE: Calculate the infrared and albedo background energy incident on 

a Reference Coordinate System (RCS) node. 

DESCRIPTION: The BACK subprogram interpolates the QBR and QBS arrays to 

determine the background energy incident on a RCS node. The background 
energy is considered completely diffuse and assumed to originate from 
no identifiable direction. The total unblocked view to space, FSE{5), 
is used to account for RCS self-blockage. 

CALLING PROGRAMS: CHR, CHB 


ARGUMENT LIST: 

QR 


Infrared energy incident on an RCS node (output) Btu/hr 


NOMENCLATURE: In addition to the FORTRAN nomenclature listed below, the 

BACK subprogram uses the variables of the GE1 block common. These vari- 
ables are defined with those of the SUBM1 (main program) nomenclature. 


DPHI 


Azimuth coordinate difference for PHI (0 ) values 
Intermediate values of albedo background interpolation 


Inclination coordinate difference for THT(K) values, radians 
Z coordinate difference for Z ( I ) values, ft 
Albedo background energy incident on an RCS node, BTU/hr-ft^ 
Z coordinate interpolation indices for point 1 and 2 
Azimuth coordinate indices for point 1 and 2 
Inclination coordinate indices for point 1 and 2 
Azimuth coordinate values for QBR and QBS, radians 
Azimuth angle of RCS node, radians 


QS, QB, Ql, Q2, 
Q3, Q4, Q5 

QBR(I , J, K) 

QBS ( I , J, K) 


Intermediate values of the background energy inter- 
polation 

Infrared background energy values array, BTU/hr-ft^ 
Albedo background energy values array, BTU/hr-ft^ 
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THT(K) 

Z(I) 


Inclination coordinate values for QBR and QBS, radians 
Z coordinate values for QBR and QBS, ft. 


BACK SUBPROGRAM FLOW CHART 
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SUBPROGRAM NAME: Subroutine FLOORN (IC, IFLR) 

SEGMENT NAME: SUBS 6 


PURPOSE: Calculate the chamber floor node coordinates, temperature, radiosity, 
and average floor node temperature. 

DESCRIPTION: The FLOORN subprogram divides a circular chamber floor into 

polar coordinate nodal areas, determines the node coordinates, assigns 
node temperatures, and calculates the nodal radiosities. The node tempera- 
tures are either input (via card F8 in the TVC routine) or are calculated 
based thermocouple data input with linear interpolation for the node 
temperature - location. The exact thermocouple locations are defined for 
the MSC and LTV chambers in Appendix D of Volume I. The chamber origin 
and floor origin are assumed identical. 

CALLING PROGRAM: TVC 


ARGUMENT LIST: 


IC Chamber index (input) 

=1 MSC chamber 

=2 LTV chamber 


IFLR Floor node input index (input) 

=0 thermocouple temperatures are input, stored floor 
data to be used 

=1 Node and node temperatures are input 


NOMENCLATURE: In addition to the FORTRAN nomenclature dictionary listed below, 

the FLOORN subprogram uses the variables of the CH3 block common statement. 
These variables are defined with the TVC subprogram nomenclature. 


A 


Floor node area, ft 


2 


ANGLE 


Floor node azimuth angle location from chamber origin, 
radians 


GRAD 

GRAD1 , GRAD 2, 
GRAD 3, GRAD4 , 
GRAD5, GRAD 6, 
GRAD7 , GRAD8 


Floor node temperature gradients used in linear inter- 
polation of floor thermocouple data to find floor node 
temperatures 


IC 

IFLR 

I. J, JL, 
K, KL, ML, 
N, NL 


Chamber index 

Chamber floor input index 

Indices 
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NODE 

PI 

R 

RAD 

SIG 

TAV 

TDUM 

TEMTC(J) 

TEMP5, TEMP6 
TEXTi , TEXi, 
XT, YT 


Number of floor nodes for this chamber floor 
7T 

Floor node division radius from chamber origin, ft. 

Floor node center point radius from chamber origin, ft. 

2 4 

Stefa n-Boltzmann constant, Btu/hr-ft °R 

Average floor node temperature, °F 

Dummy temperature array used in interpolation of 
thermocouple data to find floor node temperatures 

Thermocouple temperature data, °F 

Dummy temperature values used in interpolation of 
thermocouple data, °F 
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FLOORN SUBPROGRAM FLOW CHART 



34 







• HW,* SUHS6 , SI IKS 6 

UNI VAC 1 1 OH POHTHAN V IPvKl. 2206 TO!** KAOlHtl 
THIS DUMP 1 1 AT ION HAS IX>NP: ON .11 M.W II AT 14: 14? IS 


II MAH 11 



SlUKOirriNK PMXWN FNTHV POINT 002142 

STORAGE OSKO NAME , OXiWI 


0001 

♦txx>: 

002163 

0000 

*1>ATA 

001334 

0002 

*HIANK 

oooooo 

0003 

CHI 

005141 


EXTERNAL REPTWENCPrS IHIOCK, NAME* 

0004 cos 

0005 SIN 
0000 MSHO 


STORAG*! ASSIGNMENT MW VAHI ABIES IHUJCK, T3 PE , HEIATIVE IOCATION, NAME) 


0001 000024 122C 0001 
0001 001212 3I6G 0001 
0001 001554 401G 0001 
0000 R 001210 A 0000 
0003 R 000005 KPSFIJt 0000 
0000 R 001110 CHA04 0000 
0000 ! 001201 I 0000 
0000 I 001204 Ml. 0000 
0003 I 000001 NIK/NS 0000 
0003 R 000004 TAV 0000 
0003 R 000006 TEVTC 0000 
0000 R 001160 TEXTS 0000 
0000 R 001152 TKX22 0000 
0000 R 001146 XT 0003 



001542 

1241. 

0001 



001335 

33 1<* 

000! 



001124 

44 W 

0001 


R 

00121 1 

anci>: 

0003 

R 

R 

001201 

GRAD 

0000 

R 

R 

001 111 

GRADS 

0000 

R 

1 

001 1 44 

J 

0000 

1 

1 

001116 

N 

0003 

1 

R 

001143 

PI 

0000 

R 

R 

oooooo 

TWM 

0003 

R 

R 

001154 

TKXTI 

0000 

K 

R 

001161 

TF.XT6 

0000 

H 

R 

001 145 

1>:X4» 

0000 

R 

R 

001302 

VP 

0000 

R 


001545 

1261. 

0001 


001552 

001515 

357C 

0001 


00 t 522 

001141 

4450 

0001 


002024 

005140 

hkta 

0003 

R 

002514 

001165 

CHAD) 

0000 

R 

001166 

001112 

UHADfi 

oooo 

R 

0011 11 

001202 

Jl. 

oooo 

1 

001164 

OOOOOO 

NH 

0000 

1 

001175 

001205 

R 

oooo 

R 

001206 

003126 

TPXP 

oooo 

R 

OOlill 

001155 TKXT2 

oooo 

R 

001156 

001162 

1>:xTi 

oooo 

R 

001163 

001 151 

ir\42 

oooo 

R 

001)53 

001141 

V T 





2001. 

0001 


002005 

1001 

36415 

0001 


001525 

36115 

47015 

0001 


002045 

41515 

BP' 

0003 

R 

000003 

tw 

UK 41)2 

oooo 

R 

001 Mil 

UK A|)| 

CH4D7 

001)0 

H 

001174 

URAD* 

K 

oooo 

1 

001203 

M 

M. 

0003 

1 

000002 

node 

KM> 

oooo 

K 

001142 

Slti 

TEMPS 

oooo 

R 

001200 

TP.MP6 

TEXT! 

oooo 

R 

001157 

tp:\T4 

TP1XTH 

oooo 

R 

001150 

TEX21 

texm 

0003 

H 

000070 

XK 


ooiot 

1* 


sghrouti np: ptjoohni ic, i pm > 

00101 

2* 

c 


00103 

3* 


PARAMETER NPIJU650 

00104 

4* 


COWON /CM3 / NB , NW7.NS , NOOK , OR , TAV , EPSPl Jl , T6HTC1 50 1 

00104 

5* 


» f XF1 NPU1 ) , VPl NFIJU , BPT NFLRI , TP>1P 1 NH Jl » t BPTA 

00105 

6* 


DIMENSION TfXJMI 610 ) 

00106 

1* 


DATA S1O.PI20. 1113K-0R,3. 14159 / 

00106 

e* 

c 


0011! 

»* 


TAV = 0.0 

00112 

to* 


NOOK s NB*MJMZNS 

00113 

ii* 


IP 1 IPlJt.CT.O) GO TO 300 

00115 

12* 


IPI IC-2 > 100,200,300 

00120 

13* 


100 CONTINUE 

00121 

14* 


DO 103 J: 1 ,32 

00124 

15* 


103 TPMTC<JI=TP>frCU»*460. 

00126 

16* 


TPMTCI 33)*<T»fTC< 31 MTPMTCt l 2 > >'2 , 

00121 

11* 


TFSfTCl 3 4 » s 1TPVTC1 ! H > ♦TfMTC ( 3 2 > > ( 2 . 

00130 

IS* 


TPMTC1 35 1 s< TPKTCI 25 MTKMTCC 26 » »/2 . 


-O 
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00132 

00133 

00134 
0013 ^ 

00136 

00137 

00140 

00141 
001 4Z 

00143 

00144 
0014ft 

00146 

00147 
001*0 
00151 
001 ft2 

00153 

00154 
OOlftft 

00156 

00157 
00160 
00161 
00162 

00163 

00164 

00165 

00166 
00167 

00170 

00171 

00172 

00173 
001T4 

00175 

00176 

00177 
00200 
00201 
00202 

00203 

00204 

00205 

00206 
00207 
00210 
00211 
00212 

00213 

00214 

00215 

00216 
00217 
00220 
00221 
00222 

00223 

00224 

00225 

00226 
00227 


19* 

20 * 

21* 

22 * 

2 . 1 * 

24 * 

25* 

26* 

27 * 

2M* 

29 * 

30* 

31* 

32* 

31* 

34* 

3 ft* 
36* 
37* 
3H* 
39* 
40* 
41* 
42* 
43* 
44* 
45* 
46* 
47* 
46* 
49* 
SO* 
51* 
52* 
53* 
54* 
5ft* 
56* 
57* 
56* 
59* 
60* 
61* 
62* 
63* 
64* 
65* 
66 * 
67* 
66 * 
69* 
70* 
71* 
72* 
73* 
74* 
75* 
76* 
77* 
76* 
79* 
HO* 
Hi* 


TEMTC! 36 » = 1 TEMVCt 9 > ♦TEMTC! 27 > » '2 . 

TEMTCI 31 1 s 1 YEMIC! I 5 > *TKM1VC 2* » » '2 . 

TEMTC! 3H > = HEMIC! 10* ♦TEMTCI 29 > >'2 

TKX41 s< itemtci 20 i-temici ism ti . >* . 66*temici is » 
xt=u mMfci !»-i»or<;i4M/f,2.7>+4S. ♦temtci.ui » 

YTsH ITEMlC! U-TKX4I >/27 3>*45.*TE:X4I > 

TEMTCI 41 >slXT*>T>/2 . 

TKX21 -V I TEMlC I 1 9 » -TEMICI 34 > > ' 1 . 92 >* . 7 5 *TUMTC I 14 1 
TE-X4 2 = 11 TEMTC 1 20 > -TEMTC <3511/2. )*l . 6 3 ♦TEMTC I 15 » 

XTs! I ITEMTCI 2>-l>:X21 J/57 . >*4ft . *TE:X21 » 

»*4ft . *te:x-»i 

1>MltM 42 > = < XT* IT 1 f 'l . 

TE.X22st KTIMIIN 24 > -TEMICI I9> >/ . 92 >* . 75*TEMIVI 19 M 
XTs 111 TEMTCI 1 »-TKX22>/ft3. >*4 r » . *TKX22 > 

YTs< ITEMICI 1 1 -TEMICI 21 > >' 17. >*4ft . ♦TEMlC! 21 > 

TEMICI 4 3 1 s < XT«YT 1 / 2 ■ 

mtitnnxriu iiO-wrcnTi w i . ii>*i ,5 i>*temici hi 
XT=< 17 > >/66 . (>*4S. *1>M1t*( 17 > • 

VT=< 1 TEM1V < 4 » -TKXrt 1 »/ 21 . 7 >*45 . *TKXH I 
TEMTC! 44 > = < XT*Y T > / 2 . 

XT=< < TEMTC < 5 > -TEMlC! 1 6 > >/57 . >*45 . ♦TEMTC! I 6 > 

YT=< < TEMTC 1 5 ) -TEMTC ( 1 7 > 1 /.13 . >*45 . ♦TEMTC! I7> 

TEMTC! 45>tlXT*VT>/2. 

XTs! ITEMTC! 6 > -TEMTC <22* > /53. >*17 . ♦ TEMTCI 22 > 

YTs! ITEMTCI6 1 -TEMTC! 23 1 >/37 . >*45 . *TEMTC< 23 > 

TEMTC! 46 >s!XT*YT 1/2. 

TEXTI = 11 TEMTC ( 1 1 > -TEMTC < 33)1/1 .251*1 . 63*TEMTCI 31 > 
TE:XT2s!ITEMrC<341-THMrC< 1911/1 . 92>*375*TEMTC! I9> 

TEXT3=< ITEMTCI 41 > -TEMTC! 42 > * / 1 . 1 7 1*3 .00*TEMTCI 42 > 

TFXT4s<< TKMTC f 1ft > -ThMTCt 20 > > /2 . 56 >*3 - 7ft*T1>rrC< 20 > 

Tt:XT5=< < TEMTC I » 0 I -TEMlC! 36 > 1 / 1 . ft >*3 . * TEMlC! 36 > 

TfcXT6 = << TEMICI 37>-TEMTC<16>l/l . 51*3 . ♦TEMTC! 16> 

TEXT7 = < < TEMTC I 44 > -TEMTC! 4ft > >/ 1 . ft >*3 . ♦ TEMTC! 4ft> 

TE:xT6 = l< TEMlC! 36 > -TEMTC! 1 7 > > / 1 . 1 7 1*3 . ‘TEMICI I 7 > 

TtMTCt 40 > = <TE XT| ♦ TEXT 2 *TKXT1 *1>:XT4 *TKXT5 *TEXT6 *TKXT7 *TEXTrt >/6 . 
TEMPI 1 Is! ITEMTCI 1 1 1-TEMTC! 40 > >/ . 56 >♦ . 2ft*TEMlC< 40> 

TEMPI 61 > : < t TEMlC I 331-TEMTCII1 M/1 ,2ft>*. 11*TEM1CI11 > 

TEMPI 121 Is! ITEMTCI JJMtMTCI 1 1 > >/l . 25 »* . 67 ♦TYMTCI 1 1 > 

TEMP ( | H 1 1S<<TEMTC< 33 > -TEMICI 1 1 > >/| . 25>*1 .07*TEMTCI 1 1 > 

TEMPI 241 *s< ITEMTCI 1 3 > -TEMTCI 31 M/1 . 17 1* . 42*TEMTC< 331 
TEMPI 301 Is! ITEMTCI I 3 l-TEMICI 33 > I /l . 17 >* . 92*TEMICI 33> 

TEMPI 361 > = < ITEMTCI I 4 1 -TEMTCI 1 .1 M/| . 67 >* . 25*TEMTCH 3 > 

TEMPI 42) 1 = < < TEMTC 1 1 4 > -TEMICI I 3 M/1 . 67 >* . ?5*TEMYC1 1 3> 

TEMPI 461 1S<<TEMTC< 14> -TEMICI I 3> >/l .67>*1 .2ft*TEMTCll31 
TEMPI 541 1 = < I TEMTC < 1 4 1-TEMlCl.t 3 M /l . 67 >*l . 75*TEMTC< 1 3> 

TEMPI 9>s< <TEMTC< 34 > -TEMTCI 40 > ) / l . H3>* . 25*TEMTCI 40 > 

TEMPI 69 > = < ITEMTCI 341-TEMTCUO >1/1 .631*. 75*TEMICI 40 > 

TEMP 1 1 29 > = I < TEMTC I 34 > -TEMTC 1 40 >> / 1 . H 3 >* 1 . 2ft *TEMTC I 40 > 

TEMP 1 1 »9 > = I < TEMTC I 34 > -TEMTC 1 40 > > / 1 . 6 3 >* 1 . 75 *TEMTC < 40 > 

TEMPI 249 >sf ITEMTCI 1 9 > -TEMTC I 34 > >/l . 92>*.42*TtMTCI 34) 

TEMPI 309 >s< < TEMTC! 1 9 > -TEMTC 1 34 >>/l . 92>*. 92+TEMTCI 34 > 

TEMPI 369 > = < < TEMTC! 1 9 > -TEMTC ( 34 >> / 1 .92>*l . 42+TEM1CI 34 1 
TEMPI 429> =TFMTC< 1 9 > 

TEMPI 46 9 > s I < TEMTC< 24 > -TEMTC 1 1 9 > > / . 9 2 > * . 50*TEMTC< 1 9 > 

TEMPI 549 Is! < TEMTC! 24 > -TEMTC! 1 9 ) > / , 92 >*l . ♦TEMTC! 1 9> 

TEMP! 16>s<<TEMTC<4l 1-TEMTC! 40 > >/l ,63>*. 25*TEMTC<40> 
TEMP<761S<<TEMTC<41 1-TEMTC! 40 >>/ 1 . 63 >*. 7ft*TEMTC< 401 
TEMP! I161S<<TEMTC<41 1-TEMTC! 40 > 1/ 1 . 83>*1 . 25*TEMTC< 40> 

TEMP! 1961S<<TEMTC<41 1 -TEMTC! 40 1 1/1 . 63 1*1 . 75*TEMTC< 40 1 
TEMP! 256 Is < I TEMTC! 42 1 -TEMTC! 41)1/1.17)*. 42+TEMTC! 4 1 » 

TEMPI 31 61S<<TEMTC< 42> -TEMTC! 41 >>/l . 1 7 >* . 92*TEMTC< 41 1 
TEMP! 376 >s < ITEMTC! 43> -TEMTC! 4211/ 1 . ft 1*. 25*TEMTC< 42 1 
TEMPI 436 > = << TEMTC! 43> -TEMTC! 42)1/ 1 . ft>*. 7ft*TEMTC<42> 
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00231 

00232 

00233 

00234 

00235 

00236 
0023? 

00240 

00241 

00242 

00243 

00244 
00243 
00246 
0024? 

00250 

00251 

00252 

00253 

00254 

00235 

00236 
00251 
00260 
00261 
00262 

00263 

00264 
00263 
00266 
00267 
002T0 
00211 
00212 

00213 

00214 

00215 

00216 
00211 

00300 

00301 

00302 

00303 

00304 
00303 
00306 
00301 

00310 

00311 

00312 

00313 

00314 
00313 

00320 

00321 

00322 

00323 

00324 
00323 
00326 
00321 
00330 


H2* 

63 * 

64 * 

65 * 

66 * 

61* 

66 * 

* 9 + 

00 * 

91 * 

92* 

93 * 

94 * 

93 * 

96 * 

91 * 

96 * 

99 * 

IOO* 

101 * 

102 * 

103 * 

104 * 

105 * 

106 * 

101 * 

106 * 

109 * 

no* 

in* 

112 * 

113* 

114 * 

115 * 

116 * 

m* 

116* 

119 * 

120* 

121* 

122 * 

123 * 

124* 

125 * 

126 * 

121* 

126 * 

129 * 

130 * 

131 * 

132 * 

133 * 

134 * 

135* 

136 * 

111 * 

136 * 

139 * 

140 * 

141 * 

142 * 

143 * 

144 * 


TEMPI 496>=< (TEMTCI 43 > -TEMTCI 42 » >'» - 5 1*1 . 25*TEM1VI42 » 
TEMPI 556 > = < iTEMTCt 43 l-TEMTCt 42 >> ' 1 .51*1 . 75*TEMII*I 42 > 
TEMPI 24 > = i I TEMTCI 35 1 -TEMTCI 40 > > ' I . I? »* 25*1 EM1VI 4 11 » 
TEMPI 64 1 = I I TEM1V < .«% > -TEMTCI 40 > > ' I . 1 1 » * 7 5 *TE MIV Kill 
TEMPI| 44 >sl<TEVTCI 20>-TEMlVI35>>/2. 1* . Ilf.TEMVCI 45 » 
TEMPI 204 > = 1 I TEMTCI 20 1-TKMTCl 35 > > / 2 . >+ 5*»TEM(V( 45> 
TEMPI 264 > : < < TEMTCI 20 I -TEMIVI .*f» » >'2 . >*l .(I** TEMTCI 45» 
TEMPI 3 2 4 > = ‘ 4 TEMIV 1 20 1 - TEWTC I .15 » » 1 1 . > * • . 5* •TEM'IV 1 .{ 5 » 
TEMPI 304 > = « mm’l 21 1 -TEMIVI 2 «» » / | . ,M»* .(lK*HMI('l 20 > 
T4MI>( 444 Is I (ItMICl 21 1 -TEMIVI 2IIIKI..IO*. 56»I>MICI 20 > 
TEMPI 504 1 = 1 1 TEMTCI 2 1 » -TEMIVI 2 (l»*/| . 1.0*1 Iik *1>MI Cl 20 1 
TEMP 1 564> = 44 TEMIV <21 I -TEMIVI 201 >'l . «.**•« ‘."♦TEMIVI 20 * 
TEMP 1 . 4 II 2 < < T 4- MTV II 0 » - TEMIV I 40 > 1/ . 50 1 * . 2 5 • TEMIV 4 40 » 
TEMPO! IsimMTCI 161 -TEMTCI IOIK .92)* . 11 •TEMTCI 10 » 
TEMPI 1 5l > = ( (TEMIVI 36 I -TEMTCI 1 0 » » ' . 92 >• . 67 • TEMPO 1 0 » 
TEMPI 2» I > = ( (TEMIVI 6 1-TIMTC« .46 II / I . 5 >* . 25* l'EMTC I .46 • 

tempi ?ii i=( itemtci 6 » -tewio .iti im .5i+.15*temtci :ifc> 

TEMPI .131 >:< 4T1MTCI K I -Tl'MI’CI J6 1 O I . 5>*1 . 25*TEMVO 1(0 
T»4P< 3911=1 ITEMTCI 1 I -TEMIV 1 6 >121 5>* . 25«TEMTO 0 1 
TEMPI 451 1 = ( I TEMTC 1 ? 1 -TEMTV 16)1/1 . 51* . 1S*TEMrC( * » 

TEMPI 51 1 > = ( ITEWTCI 7 1-TEM1VI 6 11 / l . 5>*l . 25*TEMTC( 4 4 
TEMPI 511 IsllTEMrClll-TEMTCIMlI/t .51*1 . 75*TEMTC( 6 1 
TEMPI 391 = 1 ITEMTCI :iT > -TEMTCI 40 » > >\ . 5 »* . 25* TEMTCI 40 > 
TEMPI 99 1 = II TEMTC < 37 > - TEMTC 1 40 1 1 / i . 5 1 * . 7 5 ♦ TEMPO 40 > 
TEMPI 1 59 ) si ITEMTQI 37 1 -TEMTCI 40 1 » * 1 . 51*1 . 25*TEM1V< 40 1 
TEMPI 2 1 9 > =H TEMPO 1 6 > -TEMTCI 37 1 > / 1 . 5 1* . 25*TEMTO .17 > 
TEMPI 2191=1 (TEMPO 16 > -TEMPO 37*1/1 . 5 1* . 75*TEMTC( 37 1 
TEMPI 3391 = 1 1 TEMTC1 16 * -TEMTCI 37 *1/ 1 . 51*1 . 25*TEM»V( 3? » 
TEMPI 399 1 = 11 TEMTCI 2) 1 -TEMTCI 16H/» . 5 1*. 25*TEMTCC 16 * 
TEMPI 459 ) = ( ITEMTCI 21 1 -TEMTC1 16 > >/» . 51* . 75*TEMTCI 16 > 
TEMPI 519 IrllTEMTCI 21 1 -TEMTCI 1611/1.51*1 . 25*TEMTCI 16 I 
TEMPI 5791 = 1 ITEXTCI 21 1-TEMTCC 16 11/1.5 1*1 .75*TEMTOl61 
TEMPI 46 1=1 (TEMTCI 44 1 -TEMTCI 4011/1.51*. 25*TEMTO 40 1 
TEMPI 1061 = 1 1 TEMTCI 44 1 - TEMTCI 40 11/ I . 51* . 75*TEMTC( 40 1 
TEMPI | 66 ) = ( (TEMTCI 44 » -TEMTCI 4ft 1 1 / I .5»*1 .25«TEMTCMO» 
TEMPI 2261 = 1 (TEMPO 451 -TEMPO 44 ll/I .M*. 25*TEM1VI441 
TEMPI 266 > = l (TEMTCI 45 1 -TEMTCI 4411/1.51*. 15 ‘TEMPO 44 * 
TEMPI 3461 = 1 1 TEMTCI 43 ) -TEMTCI 44 11/ I .31*1 25*TEMIO 44 1 
TEMPI 406 > = I (TEMPO 46 > -TEMTCI 4511/1.51*. 25*TEM1VI 45 1 
TEMPI 466 IsIlTEMTCI 46 1-TEM1C1 45 1 1 / I . 5 1* . 75*TEMTV< 45 1 
TEMPI 5261 = 1 (TEMTCI 46 1 -TEMTCI 45 H / 1 .51 + 1 . 25*TEMTC< 45 1 
TEMPI . 566 1 = 1 (TEMTCI 46 1-TEM1CI 4511/1.51*1 . 75*TEMTC< 45 1 
TEMPI 54 1 = 1 (TEMTCI J 8 1 -TEMTCI 40 1 1/1 . 6 3 >* . 25 ‘TEMPO 40 1 
TEMPI 1 1 4 > = 1 1 TEMTC I 3 B 1 -TEMTC I 40 1 1 / 1 . 6 3 1* . 7 5 *7 EMJC I 40 > 
TEM P 1 1 7 4 1 = 1 1 T EMTC 1 3 8 1 - TEMTC I 4 0 1 > / 1 . B 3 1 * 1 . 2 5 * TEMTC 1 4 0 1 
TEMPI 234 1 = 1 (TEMTCI 38 1-TFMTCI 4011/1 .631*1 .75*TEMTCI 401 
TEMP 1 294 1 =1 1 TFMTC 1 17 1 -TEMIC I 38 1 1 / 1 . 1 7 1 * . 42 ♦TEMTC I 38 1 
TEMPI 354 1 = I ITKMTCI 1 7 1 -TEMTC 1 36 » 1 / 1 . 1 7 1+ . 92 *TEMTC ( 38 1 
TEMPI 414 1 = 1 1 TEMTCI 23 1 -TtMTCI 1711/ 1 . 51*. 25*TEMrCll71 
TEM P 1 4 7 4 1 = I (TEMTC 1 2 3 1 - TEMTC C 1 7 1 1 / i . 5 > + . T 5 ♦ TEMTC 1 1 T 1 
TFMPC 5341 = 1 ITEMTCI 23 l-TEMTCI IT 1 1/1 . 51*1 . 25*TEMTC< JTl 
TEMPI 594 1 = I ITEMTC 1 2 3 ) -TEMTC ( 1 1 1 1 / 1 . 5 1 * 1 . 15 *TEMTC ( 1 1 1 
TEMPI 601 )=TEMP( 541 1 
00 105 K=1 1 600,60 
CRAD 1 = 1 TEMP ( K ♦ 6 1 -TEMP I K 1 1 / 1 . 5 
ORAD2=(TEMPIK*l51-TEMP(K*81»/7.5 
ORAD3=ITEMP(K«23l-TEMP(K*l 5» 1/7.5 
ORAD4=(TEMP1M30»-TEMP(K«23> 1/7,5 
CSRAD5 = I TEMP I K* 3 8 > -TEMP I K ♦ 30 > 1 /T . 5 
CRAD6s(TEMP(K«451-TEMP(K»38M/1.5 
ORAD7 = (TEMP IK* 53 1 -TEMPI K*45> 1/1.5 
GRADS: I TEMP IK* 60 1 -TEMPI K* 531 1/1.5 
DO 106 J =» ,6 
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WJ.3 

145* 


NL=IK*J-1 > 

00334 

146* 


TEMP 1 NL > =TEMP ( K > ♦GRAD1 * U - 1 > 

00335 

147* 


M.s<K»J«7! 

00335 

140* 


TEMP INI.) =TEMP < K ♦ 6 > ♦GKARif* I .> « 1 > 

00337 

149* 


KU:<K*J*t4> 

00340 

150* 


TEMP INI.) rTEMP <K‘ 1 6 > ♦CK AIM* U - 1 ) 

0034! 

151* 


KL='K*.I*22> 

00342 

152* 


TEMPI KM =TEMPIK*23 * *GHAI>4*I 1- 1 ) 

00343 

153* 


M K» J +29 1 

00344 

154* 


TEMP INI.) :TEMP I K ♦ 30 > *GR 51)6* I .1 - 1 > 

00345 

155* 


M.= <K*.I*37) 

00346 

156* 


TEMP(M.>=TEMP<K*3H >*GHAI>«*(.I-1 ) 

00347 

157* 


Kl.s (K *44 ) 

00350 

I5H* 


TKMP INI.) :TEMP IN * 4 5 > ♦URAIOT * 1 .1 - 1 ) 

00351 

159* 


M.= <K*.I«52> 

00352 

160* 

106 

TEMP(M,):TEMPIM53>*UHAI>P*(.»-1 ) 

00354 

161* 

105 

CONTI MV 

00366 

162* 


DO 127 N=1 ,600 

00361 

163* 

127 

TtXMIN>=TEMP(N> 

00363 

164* 


DO 125 J=l ,600,60 

00J66 

165* 


DO 126 K=1 ,60 

00371 

166* 


NL=K*J-1 

00312 

167* 


• P< 56 -K >124,123, 12 3 

00375 

166* 

123 

TEMP 1 M , » sTTX Ml NL* 4 > 

00376 

169* 


CO TO 1 26 

00377 

110* 

124 

TEMP ( NL) sTW HI NL- 5 6 > 

00400 

171* 

126 

CONTINUE 

00402 

172* 

125 

CONTI MV 

00404 

173* 


OO TO 300 

00405 

174* 

200 

CONTINUE 

00406 

175* 


DO 203 J = 1 , 6 

00411 

176* 

203 TUMTCCJlsTFMTCU 1*460. 

00413 

177* 


TOLMI4»:TE>frCm 

00414 

176* 


TCXMI 5 1 =TEMTCI 6 ) 

00415 

179* 


TDLM 1 6 ) =T EMTC < 1 ) 

00416 

160* 


TDIMI 7 1 :TEMTC< 2 > 

00417 

Iftl* 


TDUMI 6 1 :TEMTCI 3 ) 

00420 

162* 


TDIMI 9 1 =TEMTC< 4 ) 

00421 

M3* 


TEMP5:( 1 ITmM(7>-TlXM(6»M .71 1*.27 )4TWMI6 > 

00422 

M4* 


TDiMI 21-< 1 ITEMTCI 5> -TEMP5) / . 66 )*_ 54 >*TEMTCI 5) 

00423 

M5* 
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00424 
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TDUMI 3 » = < 1 ITEMTCI 6 ) -TKMP6 > / 2 . 00 >* . 52 » ♦ TEMTCI 6 

00425 

Ml* 
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00426 

MB* 


TEMPI 7 >:< ITIXMI 6 1-TIXMI 1 ) )/ . 5 »* . 25+TDLMI | » 

00421 

M9* 


TEMPI 30>:l (TDIMI 2 > -TDIMI 1 1 » /. 77 >* . 25*TDUM( 1 1 

00430 

190* 


TEMPI 371-1 ITIXMI 7 > -TDIMI 6 ) > ' . 71 »*. 254TDIMI6 » 

00431 

191* 


TEMPI 60 > = l <TOIM<2)-TDIM(l > >/. 77 >* . 75+TDIMI 1 1 

00432 

192* 


TEMPI 67 ) = < 1 TDUMI B > -TDIMI 7 ) ) / . 75 >* . 04+TDIMI 7 1 

00433 

193* 


TEMPI 90 > = ( (TTXMI 3) -TDIMI 2> M. 01 >*. 40+TIXMI 2 1 

00434 

194* 


TEMPI 97 > = l (TTXMI 6 ) -TDIMI 7 > M. T5 >*. 544TWMI71 

00435 

195* 


TEMPI 120 > = ( I TTXMI 4 1 -TTXMI 3 > > / . 31 1*. ll^TDLMI 3) 

00436 

196* 


TEMPI 127 > si < TDUMI 9 > -TTXMI B>>/.45>*. 2 9 ♦TDUMI 01 

00437 

197* 


TEMP1 1 50 » = 1 ( TDUMI 5 » -TTXM 1 4 > > / . 4 5 )* . 2 5*T01MI 4 1 

00440 
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DO 243 K=1 , 1 50, 30 

00443 

199* 


OR AD: I TEMPI K* 6 1 -TEMP 1 K* 2 9 > » /1 . 5 

00444 

200* 


DO 241 J:l,7 

00447 

201* 


JL=IK+J-J 1 

00450 

202* 


TEMPI JL):TEMPCK*29 ) ♦GRAD*J 

0045! 

203* 


KU=IK*14-J ) 

00452 

204* 


TEMPIKI.):TEMP1 JL1 

00453 

205* 


TEMPIK4l4>=TEMP(K*29> 

00454 

206* 


NL=IK+14+J) 

00455 

207* 


TEMP INMr TEMPI. II.) 
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20** 



H1.= 1K*29-.I> 

00457 

209* 


241 

TEMP ( ML > =TKMP ( Jt . > 

004«| 

210* 


243 

covriMtf 

00463 

211* 


300 

CONTI MK 

00464 

212* 



R = 0. 

00465 

213* 



RKTA s 2.+PI/NH 

00466 

214* 



RAD : 0.666fi*IWI 

00467 

215* 



IX) * 1-1 , M Mf.N> 

00472 

216* 



A = HKTA*(H«im*0. 5>*DH 

00473 

217* 



AM1I.K s 0. 

00474 

21** 



IXI 7 .1 = 1, M» 

00477 

214* 



AMH y. : AM5IK ♦ HKTA 

00600 
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K s( 1-1 >*M» ♦ 

00 501 

221* 



XMK* = «AI»*(X)SI AMH.K) 

00502 

222* 
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223* 



HK(K> s KPSH M*NK;* A*1>MP4K 

00504 

224* 



TAV : TAV * TIXPIK * 
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225* 

T 
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00507 

226* 



H = H * (XI 

00510 

227* 



RAD = R * f)H*0 . 5 
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226* 
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00513 

220* 
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END 
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SUBPROGRAM NAME: Subroutine SCREEN 

SEGMENT NAME: SUBS7 

PURPOSE: Calculate the amount of columnlated solar lamp flux incident on 

a Reference Coordinate System (RCS) node. 

DESCRIPTION: Direct solar lamp radiation is modeled as columniated flux 

passing through an imaginary grid perpendicular to the solar vector. 

The SCREEN routine sets up this Imaginary nodal grid, assigns solar flux 
data to the grid, and calculates the columniated solar flux incident 
on an RCS node. The solar lamp grid geometric data and flux Intensity 
information are input to the TVC subprogram and transmitted to the SCREEN 
routine via the CH2 block common. 

CALLING PROGRAMS: CHB, CHR 

ARGUMENT LIST: None, all data is transmitted into and out of the SCREEN 

subprogram via the GE1 and CH2 block common statements. 

NOMENCLATURE: In addition to the FORTRAN nomenclature listed below, the 

SCREEN subprogram uses the variables of the GE1 block conmon. The GE1 
block common variables are defined with the SUBM1 (main program) nomen- 
clature. 


D 

DD 

DW 

HEIGS 

J 

K 

ML 

NW 

NGRID 

SFLUX 

SOL(K) 

WIDTHS 

Y 


Solar screen 1/2 length, ft. 

Solar screen (grid) node length, ft. 

Solar screen grid nodes per width 
Solar screen grid height, ft. 

Solar screen width node number 

Solar screen height node number 

Number of solar screen node lengths 

Number of solar screen node widths 

Total number of solar screen nodes 

Solar lamp flux incident on RCS node, Btu/hr-ft 2 

Screen grid K solar lamp flux, Btu/hr-ft 2 

Solar screen width, ft. 

Y coordinate of solar screen node 1 edge 
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SLWUHTINP: SCREEN KNTHV POINT 000127 
STORAGE USED IW/XJK, NAMK, IJ-NC.TH) 


0001 
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0000 

*1>ATA 

000026 
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000000 
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00004.1 

0004 

012 

0004.16 


EXTWRNAl- BPS-TCRENCES (HIjOCK, NAMK» 
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0001 000026 51. 0001 
0003 R 000021 HXX 0001 
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R 000041 MhiMW 0004 R 000000 
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R 

00000 I 
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OOOJ 

R 

0000(0 

HZ 

COST! 

0000 

R 

ooonoo 

O 

DY 

0001 

H 

000026 

nz 

OOP'IRP 

0003 

K 

0000.14 

COSOL 

IQ 

0000 

1 

000005 

J 

PHI 

0001 

H 

000004 

PH1 1 

SOI. 

0003 

R 

000017 

SIN 

XSE 

0000 

R 

000002 

Y 


0003 R 000006 HX 
0001 H 000OII COSP 

0000 R OOOOOt OO 

0001 H 000032 P'-WOT 

0003 R 000036 UNUT 

0000 I 000004 K 

0004 R 000434 SP'IIX 

0001 N 000040 St NO 
000.1 H 000001 >SE 


00101 

00101 

00103 

00104 
00104 

00104 

00105 
00105 
00100 
001 10 

001 11 

00112 

00113 

00114 
Ofltto 
oon e 
00120 
00122 
00123 
00125 
00127 

00130 

00131 
fftfft2 

00133 

00134 


i* surroutinp: schkpn 

2* C 

3* PARAf*rrra NOR ID - 2 40 

4* Ctww /CP:i / XSK,VSK, ZSE, ASK, PHI t ,7VfTI ,HX,BY,BZ,COSP,SINP.PMl , 

5* I FSE<5),HXX f BYY,COSTI.DX,DY,DZ,IO,C.<>PTHP f 

** * COST , EATOT ,GOPTH .GOSOL.GOSOl J), GOS/X A, SUN, Sl/ND, S I hStIN .COSStrN 

7* C»WON /CH2 / SOI,(NOHID).MI.,NW,imyrHS,HKIOS t SHCX p A1>’SU|, 

P* c 

9* IF IRIDTHS.LT. 0. ) GO TO 5 

10* D : HP:iGS*0.5 

II* DO s HKIOS /FLOAT! ML) 

12* Y s -WIDTHS 40 . 5 

13* DW= FLOAT ( NR I /WIDTHS 

14* WIDTHS s -100. 

15* 5 K s <D+XSP*SINSt,)N-COSSUN*( 4 . 2- ZSE) I /DO ♦ 1.0 

16* IF CK.LT.I) OO TO 9 

17* IF <K.GT.M,)GO TO 0 

1»* J s <Y5E-Y)*DW ♦ |. 

10* IF ij.LT.l) OO TO 0 

20* IP < .1 . GT . NW >0O TO 0 

21* K : K ♦ <J-|>*ML 

22* SFU* s SOI, IK) 

23* hptvirn 

24* 9 SFICX =0. 

25* RPTVHN 

26* END 
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SUBPROGRAM NAME: Subroutine CHR (I, EPSLMP, ENV1 ) 

SEGMENT NAME: SUBS8 

PURPOSE: Calculate the thermal vacuum chamber Lunar Surface Thermal Simulator 

(LSTS) heater element zone power settings and temperatures to match the 
real environment energy absorbed by a Reference Coordinate System (RCS). 

DESCRIPTION: Using a given set of environment conditions, the CHR routine 
calculates the thermal environment due to solar lamps, chamber floor, 
and chamber background (albedo and infrared). The CHR subprogram then 
uses a least squares technique to calculate the LSTS zone power settings 
and temperatures to provide the best match of the total chamber environ- 
ment with the absorbed energy from a real environment (i.e., lunar plain, 
crater) on the sum of the RCS nodal surfaces. Environment description 
data for the solar lamps, background energy, and chamber floor are read 
into the EHFR by the TVC subprogram. 


CALLING PROGRAM: TVC 
ARGUMENT LIST: 

I Environment change update index (output) 

EPSLMP Thermal emissivity of LSTS heater elements (input) 

ENV1 Chamber environment name in A format (input) 

All other data required by the CHR subprogram are transferred to the routine 
via block common statements. 


NOMENCLATURE: In addition to the dictionary of FORTRAN nomenclature listed 

below, the CHR subprogram uses the variables of the MR, GE1 , CHI, CH2, 
CH3, and CH6 block common statements. These variables are defined 
with the SUBM1 (main program) and TVC subprogram nomenclature. 


A ( I , J) 

ALPHA, ALPHA3 
AT ( I ) 

B(I) 

BIG 

DELT(IZ) 


Coefficients of LSTS heater element zone power (radiosity) 
linear equations (double precision) 

Absorptivity of an RCS node to an energy source 

LSTS heater element zone temperature, °R 

Constants in LSTS heater element zone power linear . 
equations (double precision) 

Equation singularity indicator 

Temperature difference between two iterations for the 
LSTS heater element temperature for zone IZ, °R 
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ENV1 , ENV2 

Environment name In A format 

ENV3, ENV4 

Name for the real environment which is to be matched 

GIR 

Incident infrared background energy on an RCS node, 
Btu/hr-ft2 

GOSOL 

Background albedo incident on an RCS node, Btu/hr-ft 2 

GOSOLD 

Direct solar lamp energy incident on an RCS node, 
Btu/hr-ft^ 

IC 

Chamber index 
=1 MSC Chamber 
=2 LTV chamber 

I SOLAR 

Solar lamp operation index 
=-2 solar lamps are off 
X-2 solar lamps are on 

I 

Environment change/update index 

IT 

LSTS heater zone tier index 

IZ 

Number of LSTS heater zones for chamber IC 

11, 12, 13, 
15, 16 

Print indices 

J, K 

Indices 

KFIX 

Linear equation solution indicator 

MUM(IZ) 

Index indicating the rows and columns which are to 
be omitted in the solution of the LSTS heater element 
zone power linear equations 

N 

RCS node number 

NZ 

Number of LSTS heater zones for Chamber IC 

NIT 

Iteration number for LSTS heater element zone tempera- 
ture calculations 

QA(N) 

Real environment absorbed heat to be matched by the 
CHR routine, Btu/hr 

QAC(N) 

Total LSTS heater element energy absorbed by RCS node 
N as matched by CHR, Btu/hr 
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QALB(N) 

QB(N) 

QCALC(N) 

QF(N) 

QL(N) 

QLZ(N, IZ) 


Albedo background energy absorbed by RCS node N, 
Btu/hr 

Infrared background energy absorbed by RCS node N, 
Btu/hr 

Total energy absorbed from the "matched" chamber 
environment by RCS node N, Btu/hr 

Infrared floor energy absorbed by RCS node N, Btu/hr 

Total LSTS heater element energy needed to match the 
real environment absorbed energy for RCS node N, 
Btu/hr 

LSTS heater element energy from zone IZ absorbed by 
RCS node N, Btu/hr 


QS(N) 


Direct solar lamp energy absorbed by RCS node N, 
Btu/hr 


SUND2 

T(IZ) 

TC0NT2 


Solar vector angle of the real environment to be 
matched by CHR, deg. 

LSTS heater element zone IZ temperature, °R 
Contact temperature of RCS in real environment, °R 


TESTT(IZ) 

T4TH 


LSTS heater element zone IZ temperature for previous 
iteration calculation, °R 

[T(IZ)] 4 , "R 4 


X 


Dummy variable 
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SUBPROGRAM NAME: Subroutine TC2(XO, TCON) 

SEGMENT NAME: SUBS9 

PURPOSE: Calculate the Reference Coordinate System (RCS ) chamber floor 
contact temperature. 

DESCRIPTION: The TC2 subprogram determines the node on which the RCS Is 
located and uses that node temperature as the chamber floor contact 
temperature. In the event that the contact temperature is input 
(TCONT on Card B2), the routine sets the contact temperature to that 
specified by the user. If the RCS is positioned off of the chamber 
floor, the closest floor node temperature is used for the contact 
temperature. 

CALLING PROGRAMS: CHB, CHR 

ARGUMENT LIST: 

XO 


TCON 


Current timepoint RCS location as defined in the MR 
block common (input) 

RCS floor contact temperature (output), °R 


NOMENCLATURE: A dictionary of FORTRAN nomenclature used by the TC2 sub- 
program is listed below. 


BETA 

DR 

I 

NB 

NUMZNS 

NZONE 

PHI2 

RMAN 

TCON 

TEMP(I) 

XO(l) 

XO(2) 

XO (7 ) 


Angular width of a floor node division, radians 

Radial length of a floor node division, ft. 

Contact node number 

Number of angular floor node divisions 

Number of radial floor node divisions 

Radial floor node index of RCS location 

Azimuth location of RCS on floor from chamber origin, 
radians 

Radius of RCS on floor from chamber origin, ft. 

RCS floor contact temperature, °R 
Floor node temperature, °R 
RCS X position in chamber, ft. 

RCS Y position in chamber, ft. 

RCS contact temperature input, °R 
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TC2 SUBPROGRAM FLOW CHART 
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Ill 

• KM,* SUB.N9 , SUHSO 11 M ' w 71 

UNIVAC HOH KMTRAN V I.KVKL 2206 001** KSOIt*M 
THIS COMPILATION OAS «>NK ON 31 MAH 71 AT 14:19:2* 


SUBROUTINE TC? KNTHV POINT 000124 

8TUHAUK USED (HlJOCK, NAME, LKK1TH) 


0001 

*«»*: 

0001.34 

oooo 

♦OAT A 

000020 

0002 

♦BLANK 

oooooo 

0003 

CH3 

005141 


EXTERNAL REFERENCES < HIIX'K , N.V4-I) 

0004 SOHT 
000 5 ATAN2 
0006 NEHR35 


STORAGE ASS I GNMENT KM 

0001 000012 II. 

0003 R 000005 EPSHR 
0000 I 000001 N7JONE 
0003 R 000006 TPMTC 


VAR1AH1.K.S < HI JOCK, TYPE, 

0001 000034 51. 

0000 I 000003 I 
0000 R 000002 PHI 2 
0003 R 000070 XF 


HFIATIVK LOCATION, NAME! 

000 3 R 005140 HFTA 
0003 I 000000 NH 
0000 R 000000 RMAN 
0003 R 001302 VF 


0003 R 002514 HP’ 
0003 I 000002 M ME 
0003 R 000004 TAV 


0003 K 000003 IM 
0003 I 000001 M M/NS 
0003 R 003726 Tl-MP 


00101 

1* 


SUBROUTINE TC2 IXO, TOON) 

00101 

2* 

C 


00103 

3* 


DIMENSION XOI7I 

00104 

4* 


PARAWTER NFLM;650 

00105 

B* 


OU4GN /CH3 / NH , NLM7NS , NOOK, IM, TAV .KPSKR.TIMrC 1501 

00105 

6* 


t , XP4 KHUR ) . VFI NF1J1 1 , HU NftJtl ,TM4P ( NFLR ) , BETA 

00105 

7* 

C 


00106 

e* 


IP' «XO< 71 .LE. 0 .0 » GO TO 1 

001 10 

0* 


TOON s XOf T 1 

001 1 1 

10* 


RETURN 

00112 

11* 


1 RM4K z SORT! XOt 1 >**2 « XOI2)**2> 

00113 

12* 


IF <RMAN.Or.0.0> OO TO 5 

00115 

13* 


TOON = TFMP(|> 

00116 

14* 


RETURN 

00117 

15* 


5 CONTINUE 

00120 

16* 


N20NE = RMAN/DR * 1. 

00121 

17* 


IF INZONE.OT.NIMZNS) N7JONB s NUMZNS 

00123 

ie* 


PHI2 x ATAN2(XOI2>,XO<|>) 

00124 

10* 


IF (PH12.LT.0. 0» PHI 2 > PHI2 ♦ 6.20310 

00126 

20* 


1 x PHI 2 /BETA ♦ |. 

00127 

21* 


1 S INTONE- | )*NB « i 

00130 

22* 


TOON s TEMPI 1 ) 

oom 

23* 


RET1MN 

00132 

24* 


END . 


END OF UK I VAC I toe FORTRAN V COMPUTATION. 
SURS9 SYMBOLIC 

SUMS 9 COOK RK10CATAHI.E 


0 •DIAGNOSTIC* MESSAGE! ft) 

10 MAR TO 10:17:44 0 O145TTT0 14 24 I DELETED) 

10 MAR TO 10:1T:44 1 01460510 24 1 I DELETED) 


: 2 * 
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SUBPROGRAM NAME: Subroutine SOLVE (A, B, N, BIG, MUM) 

SEGMENT NAME: SUBS11 

PURPOSE: Solve a set of linear equations to find the thermal vacuum chamber 

LSTS zone heater radiosity. 

DESCRIPTION: The LSTS zone power settings and heater element temperatures 
calculations using a least squares match of real versus simulated absorbed 
heat environment results in a set of linear equations relating zone heater 
element radiosities, chamber configuration, and RCS thermal properties. 

The solution of these linear equations is determined by SOLVE using the 
Gauss-Jordan reduction technique. Rows and columns of the linear equations 
may be omitted to assure positive values of heater radiosity. All variables 
used in this subprogram require double precision accuracy. 


CALLING PROGRAM: 

CHR (SUBS8) 

ARGUMENT LIST AND NOMENCLATURE: 

A(I, J) 

Coefficients of the LSTS heater zone radiosity terms 
in linear equations (input) 

B ( I ) 

Constants in linear radiosity equations (input). LSTS 
heater zone radiosity (output) 

N 

Number of linear equations 

BIG 

Equation singularity indicator (output). 

If zero, a singular set of equations exists. 

MUM(I) 

Index indicating the rows and columns which are to 
be omitted in the solution process (input) 

AIK, AKJ 
DIV, BK 

Intermediate terms used during solution of equations 
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SOLVE SUBPROGRAM PLOW CHART 
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• K)H,* SLUM t .SUIISI t 11 H\H ?| 

(Ml VAC I IOl« FORTH AN V LEVEL 2206 001** K50IXH 
THIS COMPILATION NAS DONE ON 31 MAH 71 AT |4: 19:34 


SLWKHTINK SOI .VE ENTRY POINT 000101 
STORAGE USED < BLOCK, NAME, t>.ViTH» 

0001 *cook ooom 

0000 4DATA 000010 

0002 4HI.ANK 000000 


EXTERNAL HEKH4KNCKS (HUX'k, NAME I 
0003 NEHH3S 


STORAGE ASSIGNMENT FOB 

0001 000253 1L 

0001 000227 12L 

0001 000242 1 760 

0000 D 000000 DtV 


VAHIAtlLES I BLOCK , TYPE 

0001 000211 I0L 

0001 000250 13L 

0001 000077 51. 

0000 I 000012 I 


RELATIVE LOCATION, NASOil 

0001 000023 4 06G 

0001 000132 I 36G 

0000 D 000006 AIK 
0000 I 000013 J 


0001 000222 lit. 

0001 000155 I50G 

0000 D 000002 AKJ 
0000 I 000010 K 


oooi 000061 use; 

0001 000200 IMG 

0000 D 000004 Hk 
0000 I 0000 II I. 


00101 

14 


SUBROUTINE SOLVK(A,R,N,BIG,MLM> 

06620 

00103 

2* 


DIMENSION A< 10, 101 ,B( 10 > ,MLM< JQ> 

06630 

00104 

3* 


DOUBLE PRECISION A.B.BIO.OIV, AKJ ,HK , AIK 

06640 

00105 

4* 


DO 12 K=1,N 

06650 

OOtIO 

5* 


1 Ft MLN< K 1 . LT . 0 1 GOTO 12 

06660 

00112 

0* 


BIGiDAHS(A<K,K>> 

06870 

00113 

7* 


L=K 

06860 

00114 

8* 


DO 5 1 =K,N 

06690 

00117 

9* 


IE<MLM(l).LT.0> GOTO 5 

06900 

00121 

10* 


1 Ft BIG-DABS ( A( 1 ,K > > ) 4,5,5 

06910 

00124 

11* 

4 

BIG=DAHS(A( 1 ,K» 1 

06920 

00125 

12* 


L=l 

06930 

00126 

13* 

5 

CONTINUE 

06940 

00130 

14* 


IF<BIG> 1,|,2 

06950 

00133 

15* 

2 

CONTINUE 

06960 

00134 

16* 


DIV=A<L,K> 

06970 

00135 

17* 


DO 6 JrK.N 

06960 

00140 

18* 


AKJ=A(L,J> 

06990 

00141 

to* 


A(L,J>=A(K,J> 

07000 

00142 

20* 

6 

AIK,J»=AKJ/DIV 

07010 

00144 

21* 


tt=B<L> 

ATA9A 

00145 

22* 


BfLlsBIKl 

V 1 M C v 
AfAIA 

00146 

23* 


B(K1sBK/DIV 

V Ml IV 

00147 

24* 


DO 11 1 = 1, N 

U V MnV 
A4ACA 

00152 

25* 


IFIMUMf I I.LT.0I GOrTO ft 

II 1 U*IV 

0?0ft0 

00154 

26* 


IP <K- 1 } 9,11,9 

MMn 

00157 

27* 

9 

AIK=A< 1 ,K» 

WIVl V 
A9AAA 

00160 

28* 


DO 10 J=K,N 

v# vnO 
AfAAA 

00163 

29* 


1FIMLMIJ1.LT.OIOOTO 10 

VT WO 

Af | AA 

00165 

30* 


AI|,J)=A(I ,J)-A(K*ACK,J> 

V f ft VU 

0T 1 10 

00166 

31* 

10 

CONTINUE 

07120 
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0 32* 

oorti ;»;i* it 

00113 . 14 * 12 

00115 . 15 * 

00200 16 * 

00202 31 * 

00201 3ft* II 

00205 30 * 1 

00206 40 * 


B< I »:Hl I >-4lfc*l!lkl 
(HMTIMK 
IXIVTI M’K 
IX» 13 lil.t 

ikimihi 1 1 .gt.o » «m> n 

HI 11:0.0 
OONTtM'K 
RKT1R5 

mo 


Oil »« 
01140 
01 iso 
01160 
OHIO 
011*0 
01100 
00001.220 
000062 <0 


6:50 06' umv-u: no* Munw.is v own.-iTim. o •oi-mjmistu** mksswkim 


Slits 1 | 

SVMKN.IC 

26 

ARM 

60 

12:51 07 

0 

014 11.610 

14 

40 

n»i min 

m«sh uk*: 

RK1 tX'AT AIM >: 

26 

AHH 

60 

12:M:01 

1 

01 « ill SO 

24 

1 

itnimoi 







0 

01 *<0000 

14 

24 




SUBPROGRAM NAME: Subroutine INPUT! 


SEGMENT NAME: 


SUBI1 


PURPOSE: Select Reference Coordinate System (RCS) desired, read RCS data 

change/update cards, and print the RCS stored data used for this run. 

DESCRIPTION: The INPUT1 subprogram selects the user specified RCS by 

appropriate block data subprogram which transfers the data 
5L 1 1 ^ ia a high speed drum (logical unit 4). The routine then reads 

RCS data change/update cards specifying: node addition/change; individual 
node geometric data changes; node-material composition change; and/or 
material absorptivity-temperature curve data modification. The subprogram 
prints out the user specified RCS data. y 


CALLING PROGRAM: SUBM1 (Main Program) 

ARGUMENT LIST: None, all data required/generated by the INPUT1 subprogram 

is transferred into and out of the routine via block common statements 
and high speed drum (logical unit 4) . 

NOMENCLATURE: Listed below is a dictionary of FORTRAN nomenclature used by 

the INPUT1 subprogram. Also used by the INPUT1 routine are the variables 
of the MR and GE1 block common statements. The MR and GE1 variables are 
defined with the SUBM1 (main program) nomenclature. 

BLANK 6 blank characters in A format 

B1 » B2 Not currently used 

CX,CY ,CZ, 

FF,FFN,FT 


I »K,L 
I EM IT 

IMAX 

IMODE 

IN(5) 

IN ( 6 ) 

IN(7) 

IN (8 ) 
IN(9) 


Indices 

Number of individual nodes for which data changes are to 
be input 

Constant 

Number of modes to be input as mode additions and/or 
complete changes 

Node-material data change index 

Number of nodes for which new material composition data 
is to be input 

Node-material composition print index 

Number of absorptivity curves to be added or changed 

Absorptivity - temperature data print index 
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IP1 

Print index for RCS geometric data 

itot.iqq, 

NEW 

Not used 

11 ,12,13 

Print indices 

MAT ( I ) 

Material I name in A format 

N 

RCS node number 

PHI 2, THT2, 
R2 

Not Used 

REFN(I)- 

Name of new Reference Coordinate System and A format 

TOTAL 

Word TOTAL in A format 
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INPUT 1 FLOW CHART 














• FOR,* SIJB1 1 ,SUHl I 

UNI VAC llOe FORTRAN V IKVEI, 2206 00 16 F’ftOI r»H 
THIS COMPUTATION *AS OONK ON 31 MAH Tl AT 14:19. IT 


31 HAH T| 


14:19: »t 


SUBUNITNE 

iNPinri 

ENTRY POINT 002421 

STORAGE used <HIGCK, 

NAME, LENGTH) 

0001 

•cook 

002436 

0000 

•DATA 

001126 

0002 

• RI.ANK 

000000 

0003 

HI 

0*1203 

0004 

OKI 

000043 


external references iHuncK, name) 


000* 

SUBI2 

0006 

SUBI5 

COOT 

SUB! 4 

0010 

SUB! 6 

0011 

AlPKAf 

0012 

TRANS 

0013 

BLOCK 

0014 

SUBI 3 

0015 

EXIT 

001C 

KREWS 

001T 

SR DU* 

0020 

NIOI S 

0021 

NIOZS 

0022 

NR BUS 

0023 

MUX'S 

0024 

COS 

0025 

SIN 

0026 

NF3W3S 


STORAGE ASSIGNMENT FOR VARIABLES (RIjOUK, TYPE, REIATIVK LOCATION, NAME) 


0001 

000131 

104L 

ooot 

002022 

0001 

000146 

10HL 

0001 

000150 

0001 

000464 

1 301. 

0001 

000025 

0001 

000644 

15HL 

0001 

000671 

0001 

001216 

I90U 

0001 

001227 

0001 

001441 

2I2L 

0001 

000161 

0001 

001550 

2321. 

0001 

001565 

0001 

002012 

238L 

0001 

002036 

0001 

000223 

252G 

0001 

000230 

0001 

000401 

3330 

0001 

000407 

0001 

000606 

4120 

0001 

000641 

0001 

000763 

4710 

0001 

001026 

0001 

001073 

53GO 

0001 

001162 

0001 

001317 

6310 

0001 

001366 

0001 

001467 

7020 

ooot 

001474 

0001 

001604 

762C 

0001 

001613 

0001 

002131 

604L 

0001 

002204 

0001 

002326 

616L 

ooot 

002351 

0000 

000073 

903F 

0000 

000075 

0000 

000.117 

91 *F 

0000 

000350 


I042G 

0001 

000134 

1051. 

0001 

II0L 

0001 

000252 

111L 

0001 

1320 

0001 

000037 

1400 

0001 

I62L 

0001 

001007 

1661. 

0001 

1 OIL 

0001 

001306 

199L 

ooot 

2200 

0001 

001535 

220L 

0001 

233L 

ooot 

001 567 

234L 

ooot 

239L 

0001 

002044 

240L 

ooot 

2560 

0001 

000235 

2620 

ooot 

3370 

ooot 

000424 

3470 

0001 

4250 

ooot 

000657 

4330 

0001 

50*0 

0001 

00102t 

5100 

0001 

5*60 

0001 

001176 

5640 

0001 

6450 

0001 

001374 

6510 

0001 

7060 

0001 

001504 

7120 

0001 

7660 

0001 

001634 

7770 

0001 

6101. 

0001 

002227 

6121. 

0001 

6201. 

0000 

000067 

90 OK 

0000 

91 0E 

0000 

000207 

91 IE 

0000 

9I6F 

0000 

000257 

91 TE 

0000 


002073 

10670 

0001 

000143 

107L 

000301 

1121. 

0001 

000341 

1 16L 

000631 

IS4L 

0001 

00006 1 

156G 

000125 

17*0 

0001 

001151 

1601. 

001306 

2001. 

ooot 

001431 

21 OL 

600170 

2250 

0001 

000175 

2310 

000202 

23*0 

ooot 

001771 

216L 

000211 

2420 

ooot 

000216 

24 6G 

000242 

2660 

0001 

000264 

30 10 

000477 

3650 

0001 

000567 

4020 

000721 

4470 

0001 

000755 

46*0 

001034 

51*0 

000! 

001041 

5220 

001252 

6040 

0001 

001261 

6110 

001406 

6570 

ooot 

001457 

6750 

001505 

7140 

0001 

001541 

7310 

002051 

6001. 

0001 

002105 

6021. 

002262 

6141. 

0001 

00230? 

6161. 

000070 

90IE 

0000 

000071 

902 E 

000215 

91 3E 

0000 

000113 

91 4E 

000361 

9I6E 

0000 

000422 

920K 
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0000 
0000 
000} R 
0004 R 
0004 R 
0004 R 
0000 H 
0004 R 

0003 R 

0004 R 
0000 I 
0003 » 
0003 I 

0000 I 

0001 I 
0003 I 
0003 I 
0003 R 

0003 R 

0004 R 
0003 R 
0003 R 
0003 R 


000447 
000646 
001327 
000003 
000022 
000042 
000063 
000012 
00370.1 
00003* 
000044 
000024 
000012 
000052 
000001 
000023 
000004 
000015 
000067 
000012 
00001 1 
000020 
021 647 


0000 000466 922K 

0000 000664 9276' 

000 3 R 001007 AI*MAT 
0000 H 000042 BLANK 
0004 R 00001 0 IV/ 

0004 H 0000 1 1 17 1ST 

0003 R 001126 m’lMK 
0000 R 000037 ►>" 

0004 R 0000 J3 ISHMH 

0000 I 000040 I 
0003 I 000441 IN***: 

0001 1 000445 IP1 

oooo i 000066 ntrr 

0000 I 000050 J 
0003 I 0004 10 KX»: 

0000 I 000046 N 
0003 • 000005 MM 

0003 R 000016 PI 160 

0001 K 000025 REF 

0004 R 000041 51 MSI IN 
0003 R 000477 TOOT 

0003 R 000461 TIT!* 

0004 R 000000 XSK 


0000 000523 9 2 36* 

0000 000717 92"P 

000 3 K 00004] AN IMF 
0004 K 000006 MX 
0000 R 000066 Hi 
0004 H 000021 1.7 1ST | 
0004 H 000024 HX 

0000 R 000055 FEN 
0004 H 000030 fSOKIRP 

0003 I 004547 14 

0001 I 000442 IN 

0004 I 000027 IO 
0000 I 000045 IS 
0000 I 000054 I 

000 3 I 00000 2 NXXX-M 

0003 I 000006 NAW 

0004 R 000013 PHI 

0003 R 006257 O 
0000 R 0 00000 REFN 

0004 R 000037 SL ! N 
0004 R 000005 THTI 

oooo r oooo4i Tcrr-M. 

0004 H 000001 1SK 


OOOO 000561 924K 
OOOO 000744 929K 

0003 H 002171 AI4 
000 4 R 0(10021 MW 
0000 H 000064 M2 

0000 H (100061 CK 

0004 M (100025 
0004 H 000014 FSK 
0004 H 000034 (SOSOt. 

0001 I 00001 I I CARO 
000 1 I 000007 l(XT 
OOOO I 0000(6 IUU 
0000 I 000061 II 
0003 I 000000 M 

0003 I 00000 1 MO J» 
000 1 < 000022 M-M: 

0004 R 000004 Pill) 

0003 R 020137 OH 
0000 R 000065 K2 

0004 R 000040 MAD 
0000 R 000060 lin'2 

0003 R 001.117 X\ 

0004 R 000002 ZSE 


OOOO 0(10605 
00(10 001006 
000 I « (Mi (017 


4/56 
4 (06' 
As 


I 


0004 M 000007 m 
0004 M 000011 I'Usp 
OOOO H 000062 C> 
0004 H 000026 IV 


I 


OOOO N 00004 i 6T 


0004 H 0000(6 COsU^ 
000 4 I 000444 (6M|S 

000 i • ooooi 4 n»u;^ 

0001 I OOOO I O I H6'6' 
0000 I 000053 1 2 
0000 I 000012 MIT M 
000 4 I 052317 MtHI.I 
OOOO I 000047 N6ft V 


0000 R 000057 PHI 2 


000.4 R 021 HO ( OS 
0001 R 000017 S If J 
0001 H 005414 ICON 
0001 H 000021 TIME 


I 


0001 K 000060 XO 


OOIOI 

14 


staROLmrsK inphti 

00101 

2* 

C 


00103 

3* 


PARAMETER MHAX=3,NMAX=420 

00104 

4* 


COWON / Ml / M.KAX.MOOM.MfXD.NMOUK.NVM.NAS*:, ICXfT, IRKF.TCONT, 

00104 

5* 


1 ISC, IC4HD, IPAUK.Pi ,PI tftO.Sia, TIMED, TIME, NKMU.IWTRI.N. IPHlNT, 

00104 

6* 


2 RKP( 12) .AN AM-: < 15),XO(7l ,OT( 15, l5I.M(XX-:< 10) . IN( 15I,TIT1.R( 14) 

00104 

7* 


3 TW4AT4 2 0 , 1 0 ) , Al .PMATf 20,10), XN( 7 > , UT 1 ME , 

00104 

P* 


4 Al.< NMAX ) , AR( NMAX ) , AS( NHAX » ,CEMX)EI NMAX 1 . 1 A4 NMAX » ,TCON( NMAX 1 

00104 

04 


5 0( 12, NMAX ) ,OH( NMAX l,OSI NMAX l.XRHWAX.NMAX, 10). KTHM NMAX) 

00105 

10* 


DIMENSION H66NI 10 > ,MAT( 201 

00106 

11* 


COWON /OKI / XSK, VSE.ZSK, ASK, PH1 1 .THTI ,RX,BV, HZ, CUSP, SINP. PHI, 

00106 

12* 


1 FSEI 5 ) , HXX . HI Y .COST1 , DX , Dl , DZ , IO .COE 1 RP , 

00106 

13* 


1 COST , FATTZr , COf-'l R ,OOSOL , OOsOf D.OO.MX A , SliN , SUND, S | NSUM , COS SUN 

00107 

14* 


DIMENSION tOO(M4X),EF(MAX> 

00110 

15* 


DATA ( REFNt 11,1:1,0) /SHCOOID, 5H SVST, 5 HA NEW, 5H RKFK, 

00110 

16* 


1 SKRKNCK, 5H OOOR, 5HDINAT, 5HE SYS, 5HTO4 / 

00112 

17* 


IXXJI VAIJCNCK 4 !N(2>, IMODe>,( IN(3>. !EMIT),(IN(4>, IP! ) 

00113 

16* 


DATA TOTAL / 5HTOTAL /, BLANK/ 5H / 

001)6 

10* 


DATA ET / 0.0633333 / 

00116 

20* 

C 


60120 

21* 


1MAX - 10 

0012) 

22* 


NVM = 0 

00122 

23* 


SIO r 0.I713K-06 

00123 

24* 


PI * 3.14159 

00124 

25* 


PI » 80 s 0.0174533 

00125 

26* 


TIM6JO s 0. 

00126 

27* 

05 

IOUT s 3 

00127 

26* 


REWIND ICX/r 

00130 

20* 

100 

READ (5,000) TITLE 

00136 

30* 


READ (5,001) IN 

00144 

31* 


ICARD s 2 

00144 

32* 

C 


00145 

33* 


IREK a INI) I 

00146 

34* 


IF ( IREK) 102,104,105 

00151 

35* 

102 

NAME z 0 

00152 

36* 


NMOOEr 0 
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37* 

ANAMEI 1 1 = TOTAL 


001 54 

36* 

MAX = INII3) 


00155 

39* 

DO 101 1=1,9 


00160 

40* 

101 RKKII) = HKKW 1 » 


00162 

41* 

IK (MAX , I.E.0 .OH . MAX.GT. NMAX > 150 TO MOO 


00164 

42* 

IK I IMOOK. I.E.0 » (XI TO M00 


00166 

43* 

IK (IFMIT.GT.01 (XI TO MOO 


00170 

44+ 

IK ( INI 5) ,NK. 21 GO TO MOO 


00172 

45* 

IK < IMM ».!>:. 01 GO 70 MOO 


00174 

46* 

DO 10.1 N=»,MA\ 


00177 

47 + 

103 I4IM = 2 


00201 

46* 

(X) TO 111 


00202 

40* 

104 CAli, SI 'HI 2 


00203 

50* 

GO It) 110 


00204 

51* 

105 IK IIHKK-2) I06.I01.IOm 


00207 

52* 

10b €41,1, SI, HI 5 


00210 

53* 

GO TO no 


00211 

54* 

107 C4U, SCBU 


00212 

55* 

00 TO no 


00213 

56* 

106 CAM. SGRI6 


00214 

57+ 

110 RKAD <41 MAX , NMI WK . NS X)K , NVM, 1 A .(IKMXJK , AN AmK , NAME , HKK 

00214 

56* 

1 XH , NTTKI . , T1XA1* , AI.KMVT , MAT , NbMl 1 , NEW 


00274 

59* 

111 CONTINUE 


00274 

60* 

C 


00275 

61* 

1PACK = 1 


00276 

62* 

•RITE <6.913) IPAGF.IRKFI 11,1=3, 9) 


00305 

63* 

ik iimoi>:.i>:.o) GO TO 110 


00307 

64* 

IK (IIOOK.CT.NMAX) GO TO 602 


00311 

65* 

112 READ 15.9011 M. I.MOOt-M 


00316 

66* 

1CARD a IC4HD ♦ ! 


00317 

67+ 

IK <M.GT>N4X) GO TO 604 


00321 

66* 

114 IF (M.GT.01 GO TO 1 1C 


00323 

69* 

M a SHOOK * 1 


00324 

70* 

IF (M OT >944X1 M=f*WX 


00326 

71* 

116 continue 


00327 

72* 

MOOE<M> = MODEM 


00330 

73* 

IF IM.OT.NMODE) NSCTOK: M 


00332 

74* 

DO 124 Nat, MAX 


00335 

75* 

RKAD (5,902) (XRIM.N, 11,1=1, IMAX) 


00343 

76* 

ICARD = ICARD ♦ I 


00344 

77* 

IF CXR(M,N,6) . IK. 0 . ) GO TO 610 


00346 

76* 

DO |26 1:7,10 


00351 

79* 

126 IF (XRIM.N, ll.CT. 0.25. OR. XRIM.N, II. I.T.0.01 

s 

t 

* 

00354 

60* 

126 CONTINUE 


00356 

61* 

IMOOK : IMOOK-1 


00357 

62* 

IF I IMOOK. GT.0» 00 TO 112 


00361 

63* 

130 conti nit: 


00362 

64* 

IF < IKMIT.LE.OIGO TO 154 


00364 

65* 

DO 150 J = I.IEMIT 


00367 

66* 

READ (5,901) M,N 


00373 

07* 

ICARD a ICARD ♦ I 


003T4 

08* 

IF (M.OT.MMODe.OR.M.LE.O) GO TO 020 


00376 

09* 

IF (N.GT.MAX.OR.N.U5.0) GO TO 020 


00400 

90* 

READ (5,902) IXRIM.N, 1), 1=1 , IMAX) 


00406 

91* 

ICARD s ICARD ♦ 1 


00407 

92* 

IF < XRIM.N, 0 > . l,R. 0 . ) GO TO 010 


00411 

93* 

DO 146 1=7,10 


00414 

94* 

146 IF <XR(M, N,l),OT, 0.25. OR. XRIM.N, ll.LT. 0.0) 

0 O to 010 

00417 

95* 

150 CONTINUE 


00421 

96* 

154 CONTINUE 


00422 

97* 

IF (NAMH.QT. 0) GO TO )56 


00424 

96* 

DO 156 Nr 1 .MAX 


00427 

99* 

156 OKNOOKIN) = Bl ANK 
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00412 

00415 

00411 

00440 

00441 

00442 

00444 

00445 
00445 
00463 
00476 

00500 

00501 

00502 

00503 

00504 
00507 
00512 
00514 
00517 
00521 
00524 
00527 
00527 
00531 

00534 

00535 
00540 

00544 

00545 
00547 
00551 

00553 

00554 

00562 

00563 
00566 
00570 
005T2 

00574 

00575 
005T0 
0057T 
00601 
00602 
00611 
00621 
00622 

00623 

00624 

00624 

00625 
0O62T 
00630 
00633 

00640 

00641 
00643 

00655 

00656 
00661 
00663 


100 * 

101 * 

102 * 

103* 

104* 

105 * 

106 * 

101* 

106+ 

109 + 

no* 

in* 

112* 

113* 

114* 

115 + 

116 * 

111 * 

116 * 

119 * 

120 * 

121 * 

122* 

123 * 

124 * 

125 * 

126 * 

1 27 * 
126 * 
129 * 
130 * 
131 * 
132* 
133 * 
134 * 
135 * 

» 36 * 
131 * 

1 36 * 
139 * 
140 * 
141 * 
142 * 
143 * 
144 * 
145 * 
146 * 
147 * 
146* 
149 * 
150 * 
151 * 
152 * 
153 * 
154 * 
155 * 
156 * 
157 * 
156 * 
159 * 
160 * 
161 * 
162 * 


156 CONTI Mil-: 

00 172 M=1 , NMH*’ 

IF < I PI 1>: .o» UO TO 16* 

11 * I 

1 l - 45 

12 = II 

162 IF II2.GT.M4XI 12 = MAX 

I PACK = I PAGE ♦ I 

WITH <6,9101 TITI.K, I PACK, RKF< | I ,HEF< ? > ,NFFl I I ,HFFl 2 I ,WX)E<M> , 

I M, MAX 

WRITE <6,9111 <N,GKNOOE<N>,<XN<M,N, I >, l = | , lMAX>,N;t| ,121 
166 IF <12. Hi . MAX > OO TO 166 

II = M ♦ II 

12 = 12 ♦ 13 
OO TO 162 

166 CONTINUE 

OO 170 N=1,M4X 
DO 171 1=7, 10 

111 XRIM.N.tl = XMIM.N, I )*4.0 

00 169 »=l,3 

169 XH<M,N,II 5 XR<M,N, I l+PT 
DO 170 1=4,5 

170 XR<N,N.I> = XR<M,N, I }*PI 1H0 
172 CONTINUE 

IF < INI 5>-l I 190,174,160 
174 II = IN<6> 

DO 176 Isl.ll 

READ <5,9011 N,MTRL<M 

(CARD r I CARO « l 

IF IN.LE.O.OR.N.GT.NMAXl OO TO 620 
IF IMTRLINI . IJS. 0 ,OR .KfHLINI .CT. 20 > OO TO HI4 
176 CONTINUE 
CO TO 190 

160 READ <5,9011 (MTRI .< N ) , N= | ,M4X 1 
ICARD s I CARD ♦ MAX/20 *| 

DO 166 N=1 ,MAX 

IF <MTRl,<N1.1>;.0.OH.Kmi.<N).CT.20» CO TO 614 
166 conti nit: 

190 IF < INI7> CO TO 200 

II = 1 

13 = 225 

12 = 13 

191 IF <12. CT. MAXI 12 = MAX 

1 PAGE = I PACK ♦ | 

*RITR <6,917» TITUS, I PAGE, <N,GFNOOE< N J .MTRLINI ,N=| J |*> 

IF < 12 . EX). MAX I CO TO 199 

11 = fl « (3 

12 s 12 ♦ 13 

OO TO 191 

199 CONTINUE 

200 IF < IN<6 > .LE.0I CO TO 210 
11 = INI 6 1 

DO 206 1=1,11 

READ <5,9031 J,N,MAT<J> 

ICARD = ICARD ♦ | 

IF < J. Lf?, 0.OR.J ,OT. 20 > CO TO 

READ 15,9021 ITPXATI J,NI ,N=f , 101 , < Al>M4T( J ,N > N=] ,10) 

ICARD = ICARD *2 
DO 206 N=1 , 10 

IF < Al .EMATI J , N ) . LT . 0 . 0 . OR . A1 >T4ATI«I , N 1 . OT I 0) OO TO M2 
206 CONTINUE 
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1 

163* 

20* CONTI MW 

00665 

164* 

C 

00667 

165* 

210 11" < IN<t)>.{.K 0> <50 IX) 220 

00671 

166* 

11 si 

00672 

167* 

12 =5 

00673 

16** 

212 WRITE if,, 9)*) TIT1W, IPAI5K. 

00673 

169* 

1 .<1,1:11,121, 

00673 

170* 

1 < ITKMATi 1 , \ > , At.HMAT 

00722 

171* 

IK I 12 . HO. 20> OO Tit 220 

00724 

172* 

llsll ♦ 5 

00725 

173* 

» 2- 1 2 ♦ 5 

00726 

174* 

(PACK : I PACK » 1 

00727 

175* 

GO TO 212 

00727 

176* 

C 

00730 

177* 

220 OO 222 Nsl.HXX 

00733 

»?M 

HTH1A s MTHl.l K » 

00734 

1 79* 

CAIL A1.PRA1 1 10460 0 , AMK> > 

00735 

1*0* 

222 CONTI M E 

00735 

1*1* 

C 

00737 

1*2* 

230 M s 0 

00740 

1*3* 

IK 4 IMI5>> 232,240.233 

00743 

1*4* 

232 M s M«| 

00744 

1*5* 

IK IM-NMOKI 2)4,234,240 

00747 

1*6* 

231 M = 

00750 

1*7* 

234 CONTI MW 

00751 

1*** 

COSMN s 0. 

00752 

1*9* 

SISSON s 0. 

00753 

190* 

XOl | ) s o . 

00754 

191* 

XO<2» £ 0. 

00755 

192* 

XOl 3 1 £ 0. 

00756 

193* 

PHI = 0. 

00T57 

194* 

S1NP s 0. 

00T60 

195* 

COSP £ l.o 

00T6I 

196* 

DO 2)9 l.sl.MAX 

00764 

197* 

WRITE 16,9151 TITlJK, 1 PAGE, N 

00775 

19** 

CAti, TRANMK) 

00776 

199* 

DO 2)7 Ns 1 , MAX 

01001 

200* 

IO £ 0 

01002 

201* 

FEN £ 0. 

01003 

202* 

DX s XHIM.N, | I - XSH 

01004 

201* 

DY s XR(M,N,2> - YSK 

01005 

204* 

DZ = XRIM.N.3I - 7SK 

01006 

205* 

Bl s BX+DX « BV*DV * R?*D7 

01007 

206* 

IF (BILf.0.0) OO TO 236 

01011 

207* 

PHI2 = XRIM,N,4» 

01012 

2 09* 

TKT2 = XRIH,N, 5) 

01013 

209* 

CX s On5<THT2>*COSIPH12> 

OtOM 

210* 

CY s COS<THT2»*SlNIFH12) 

01015 

211* 

CZ £ SlN<77fT2 1 

01016 

2)2* 

B2 s -<CX*DX*CV*DY«CZ*DZI 

01017 

213* 

IP <B2 LK.0.01 CO TO 236 

01021 

214* 

CALL RIjOCK 

01022 

215* 

ASE = XR4M,N,6) 

01023 

216* 

R2 e DX**2 *OV«2 4 DZ**2 

01024 

217* 

IF < ASE.OT. RZ*0 .04 > OO TO 

01026 

21** 

FFN £ Bt*B2*ASE/<PI*R2**2> 

01027 

219* 

2.16 IOOI N ) £ IO 

01030 

220* 

JTOT £ (TOT 4 IO 

01031 

221* 

237 FF<m £ KKN 

01033 

222* 

IF < ITOT.CT.O) OO TO 23* 

01035 

223* 

•RITE (6,016) 

01037 

224* 

OO TO 239 

01040 

225* 

23* WRITE (6,914 ) < N , OKNOOEI N » , 


% 
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226* 


239 CONTINUE 



01053 

227* 


IK CIMtM.tr. 0» 150 1X1 2.12 



01055 

226 * 


240 CONTI M >5 



01056 

229* 


CA1.I. 51 HI 3 



01056 

230* 

C 




01057 

231* 


RKTWN 



01057 

232* 

c 




01057 

233* 

c 

SFOTION 800, INPUT KHHOH DIAGNOSTIC MESSAGES 



01057 

234* 

c 




01060 

235* 


800 *13 1 TK <6,9201 ICAHD 



01063 

236* 


11 ^ ICAHD - 1 



0106* 

231* 


•HITE 18,910) II , IN,MAX,N\M 



01075 

238* 


CAM. i:m 



01076 

239* 


002 »R»TE <6.9201 ICAHI) 



01101 

240* 


1 1 = 0*410 



01102 

241* 


WHITE <8,9211 imooe.ii 



01106 

242* 


CAM. EXIT 



01101 

243* 


804 WRITE <6,9201 ICARD 



01112 

244* 


11 £ 0*41 X 



01113 

245* 


•RITE < 6.922* M, 1 1 



01111 

246* 


CALJ. EXIT 



01120 

247* 


806 *HITF: C 8, 920» ICAHD 



Ot 1 23 

246* 


(I s NMAX 



01124 

249* 


WRITE (6.9231 0«X-:<MI ,M\X, 1 1 



01131 

250* 


CALL F?XIT 



01132 

25J* 


810 •RITE < 6. 920 > ICARD 



01135 

252* 


IHITK <6,9241 N,0*)DC<M> 



01141 

253* 


CAU. KX IT 



01142 

254* 


812 WITH <6,9201 ICARD 



01145 

255* 


•RITE (6,9251 J,N,Al.FMATl,#,NI ,TEMAT<.I,NI 



01153 

256* 


CALI, EXIT 



01154 

257* 


814 WITH <6,9201 ICAHD 



01157 

256* 


•HITE <6.9261 N 



01162 

259* 


CAU. EXIT 



01163 

260* 


816 WRITE <6,9201 ICARD 



01166 

261* 


It £ 20 



01167 

262* 


•RITE <6,9281 J,H 



01173 

263* 


CAU. EXIT 



01114 

264* 


810 WRITE <6,9201 ICAHD 



01177 

265* 


•HITE <6,9291 N,07X*:<MI 



01203 

266* 


CAU, EXIT 



01204 

267* 


020 •HITE <6,9201 ICAHD 



01207 

266* 


•HITE <6,9271 M, NHOOE,N .MAX 



01215 

269* 


CALL EXIT 



01215 

270* 

c 




01215 

271* 

c 

SF3CTION 900, FORMAT STATEMENTS 



01215 

272* 

c 




01216 

273* 


900 FORMAT <16A5» 



01 217 

274* 


901 FORMAT <20141 



01220 

215* 


902 FORMAT (10P8.3 1 



01221 

276* 


903 FORMAT <214, MAM 



01222 

277* 


910 FORMAT < INI , 29X, 1 4A5, I 2X , 4HPAGK, »4 



01222 

278* 


t ///*X,2A5,30H REFERENCE COORDINATE SYSTFM, // 



01222 

279* 


2 IX.2AS.7H IN A ,A5. 25HINO MODE, IMODE MMRKR , 


01222 

280* 


2 13. 3H 1., I0X, I0H THERE ARE.I5.22H NODES 

FOR THIS 

MODE, 

01222 

281* 


3 /// 50H NODE NOOK X 

V 

* 

01222 

202* 


4 6 OH AZIMUTH INCLN AREA VIEW 

VIEW 

VIEW 

01222 

203* 


4 10H VIEW 



01222 

284* 


5 / 50H NUMBER HANK (INI 

< INI 

(INI 

01222 

285* 


6 60H (DEQl (WOO) (FT**Z1 QUAD t 

QUAD 2 

QUAD 

01222 

288* 


7 1 1H3 QUAD 4 > 



01223 

287* 


911 FORMAT < I10.5X,A5,5E10.3,F'J0 4,4E|0.3) 



01224 

288* 


913 FORMAT < IHI , 1 1 7X , 4HPACE, 14 ////////// 
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0PA4 

299* 

01224 

290* 

01224 

291* 

01224 

292* 

01224 

29 i* 

01224 

294* 

01225 

295* 

01225 

296* 

01225 

291* 

01225 

29tt* 

01225 

299* 

01226 

300* 

01227 

301* 

0I22T 

302* 

01227 

303* 

01230 

304* 

01231 

305* 

01231 

306* 

01231 

307* 

01231 

. 30s* 

01232 

309* 

01232 

310* 

01232 

311* 

01233 

312* 

01233 

313* 

01234 

314* 

01234 

315* 

01234 

316* 

01235 

317* 

01235 

316* 

01235 

319* 

01236 

320* 

0)236 

321* 

01237 

322* 

01237 

323* 

01237 

324* 

01237 

325* 

01240 

326* 

01240 

327* 

01241 

329* 

01241 

324* 

01241 

330* 

01241 

331* 

01242 

332* 

01242 

333* 

01242 

334* 

01243 

335* 

01243 

336* 

01243 

337* 

01243 

336* 

01244 

339* 

01244 

340* 

01244 

341* 

01245 

342* 


» **X,35HTHK ENVIRONMENTAL UK AT KM X HI* T INK // 

1 60X, | OH VfflfilOn 4 ft 

2 eox, i oh imm -4» t*/ 

3 54X.22HM1R UK KAM I I AVION OK ** 

4 A IX , 25HMAIII ANT ENKMCV AltsOHPTMIN " 

A 62X,fHID THE >f 4**X 7 '5 » 

9lT FORMAT I HO ,29\, I 4AS, I 2X, «HP AUK, ***// 
t 2 pH MD»: HUKHMI. MWm I Ml A / / / 

2 5< <»x , xhmx*: , ix , ahnodf: , i x , ••♦water \ \\ . * ' 

3 5!3X,6MV.NHKR,2X,4MNANE,2X,60MMIW’:H, |\»/ 

4 51 3X, Ift.ZX.AS.ZX, 14, YX> » 

914 F1XIMAT ( 6! 14, IX. Aft, IJ,F'6. 4. 1X» 1 

915 KUHMAT I ////29X.I4A5, I2X,4MP4CF:, U / - AfcMW Al M A\T IJK.TFRMIN VI ION KOM 

1 ski r huxkv> analysis, mik , i.i, iox, urn in from node, i 5 • / 

2 01 {OHM NIK MX*! O KK 1 » 

916 FORMAT ! /'44M THIS MXK IS MTT HI CX»t> HY AM irilfrU V» W. . < l » 

91 t* FORMAT <»M1,29X,UAS. I2X,4MPAGE, U m 

1 40H ABSORPTIVITY - TFMPKKATI HE ClKVK IMT A . // MI1H,U» ' 

2 SI9X.5H TFMF.6X.5FWATH1.I / SI PX, lIHUMi HI, lt*,2X) ' 

3 t F’I5. 1 ,F'|0.4,FT5. 1 ,F'IO. 4,F|S. 1 ,F'I0. 4,F‘»5. I I.KIO.lO 

920 FORMAT I////41H FATAL F.RHttl IN DATA INPIT HAM) ON CARD MNHKH. 

| 14 , // 52H PROGRAM RILL CAU, KX»T AFTER THE KIM 1AM Mi PASSAGE 

2. /un 

921 FORMAT 1 30H VAHIAB4K I MODE IS TDOIARUK. //|4H IK**: INPUT = ,15. 

1 30X.I9H MVXIN4M AUiMM> : ,lj I 

922 FORMAT! 1 1 PH VARIABI.K M 6HICH SPKCIKIKS THK MW! FOR THKHKFFHPrvC 

IK COORD! NATE SYTFM AS INPIT IS CHKATKR THAN AIJiMED. ft 

2 I1H M INPIT =,15, 3CX.1PH MAXIMUM AUJtMFI) =,»4 I 

923 FORMAT 1 36M N1MIIKR OF' M1DKS SPECIF'IFT) FOR THK ,AS,6*HIN<i MIXJF! IS 

| THK INPUT OF' A RKKARKNCK IXXWDINATE SVSTFW IS TtX) I AHiiK . // 

2 24H N1MHFR OF' NIXM-TS ISPIT S, I5.30X, I PH MAX ISAM AIJ.tMF'O = , 15 I 
92« FTRMAT • 26H NCXML AHKA ISPIT FOR SIXJK, 1 5, 4411 FOR THK REFERENCE CtKXI 
IDIKATK SVSTFM IS THK: ,A5, 26HIMI F€X)E IS MIT MIS IT I VK. » 

925 FORMAT I 49H THK: AHSOIIPTI VITA U RVE HE I Ml INPUT FtW MATERIAL ,14. 

1 3X.56H HAS ARSORPTIvm DATA EITHER NEGATIVE OH GHKAIER THAN OSK 

2 //|1H DATA POINT , I4,20X,I5H AHSORPTIVITV s.F'lO. 4.20X, 

3 1 4H TFMPKHATIRK =,F|0.2 > 

926 FORMAT I T4H THK MATKHIAL MMlffl IS EITHER ZERO OH CHEATER THAN A 
IIJ/MKD FAX! THK M.XJE ,15 ) 

927 FORMAT 1 5 AH M OH N AHK KITHKH ZERO OR CHEATER THAN Al l OWED 

1 ///IIH M ISPIT IS ,15,201, | PH MAXlMLM AIJjfMKl) : , 15 *f 

2 1 IN N ISPIT IS , I5.Z0X, I PH MAXIMUM AIJXMKD : , 15 // 

3 » 

929 FORMAT I 62H MATKHIAL MMHKR INPUT IS KITHKH ZERO OR CREATE* THAN 
MU OWED. //24H MATKHIAL NUMliFR INPUT = , 1 5 ,20X, 

2 14H MAX AliOWED =,16 » 

929 FORMAT I50M NODAL UNBLOCKED VIEW TO THK KNV I RONStfCNT FOR NOOK ,15, 

1 46H FOR THK REFERENCE COORDISATC SVSTFM IN THK , A5, RHINO MOOR 

tf/ 21X, 7 OH IS EITHFR SKOATIVK OR CHFIATFR THAN 0.25 FOR ONE OF* T 
3HK OUJAORA NTS. » 

930 FORMAT IT6H ERROR IN SPECIFICATION OF* NFXf BF»»ENCE COORDINATE SYS 
1TFM III s NEGATIVE). //22H THE I ARRAY ON CARO ,15 // 1515 // 

2 6H MAX s , 1 5 , 20X, 6H NVM s ,1ft > 

END 


END OF UNI VAC 1109 FORTRAN V COMPIlJVNON. 0 *DI AGNOSTIC* MESSAGE! SI 


SUBI1 


SYMBOLIC 

14:17:33 

0 

022M650 

14 

342 

IPEI-ETEDI 

SLIRI 1 

CODE 

REIjOC ATARI it 

14:17:33 

1 

02263134 

46 

1 

UM-ETKOI 





0 

02263214 

14 
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SUBPROGRAM NAME: SUB I 2 

SEGMENT NAME: SUB 1 2 


PURPOSE: To store and load the EHFR with the Apollo Extravehicular Mobility 

Unit (EMU) nodal data. 

DES /n IP I I0N: The SUBI2 sub P r °9ram contains the Reference Coordinate System 

(RCS) nodal data for the Apollo EMU in the Bending, Walking and Kneeling 
mdoes . The routine consists of block data statements and a write state- 
ment to put the EMU data on a high speed drum (logical Unit 4) for input 
to the INPUT1 program. The RCS data stored in SUBI2 for the EMU is des- 
cribed in Appendix A of Volume I. 

CALLING PROGRAM: INPUTl 

ARGUMENT LIST: None 


NOMENCLATURE: The MR block common contains all the variables of the SUBI2 

va ^ ab ^ es of the MR block common are defined with the 
SUBM1 (mam program) nomenclature. 


PROGRAM LISTING: 
ments and a wri 


Since the SUBI 2 subprogram contains only block data state- 
te statement no listing is presented here. 


FLOW CHART: 


START 


RCS DATA STATEMENTS 

_v 

f 

WRITE RCS DA 
SPEED DRUM (LO 

TA ON HIGH 
GICAL UNIT 4) 


RETURN 





SUBPROGRAM NAME: Subroutine SUBI3 

SEGMENT NAME: SUBI3 

PURPOSE: Change/update the EHFR stored program data for the Lunar Surface 

Thermal Simulator (LSTS) Models, and print the LSTS stored data used for 
this run. 

DESCRIPTION: The SUBI3 subprogram stores the permanent LSTS configuration 

information, reads LSTS data change/update cards, prints out the final 
user specified data, and transfers the LSTS configuration data to the TVC 
program via output on a high speed drum (logical unit 4). The LSTS 
data stored includes: the number of power zones, the number of heater 

element tier arrays for each zone, the number of heater elements in each 
tier, heater element emissivity and heater element geometric data. A 
description of the data stored within the SUBI3 routine is presented in 
Appendix D of Volume I. 

CALLING PROGRAM: SUBI1 

ARGUMENT LIST: None, all data required/generated by the SUB 1 3 subprogram 
is transferred into and out of the routine via a high speed drum 
(logical unit 4). 

NOMENCLATURE: Listed below is a dictionary of FORTRAN nomenclature used by 

SUB 1 3 subprogram. Also used in SUBI3 are the output description variables 
and indicies of the MR block common. These variables are defined with the 
SUBM1 (main program) nomenclature. 


ANL 

The word LAMP in A format 

ANT 

The word TIER in A format 

ANZ 

The word ZONE in A format 

ENV1 , 

Chamber name of Chamber IC in A format 

t 

ENV2 

FT 

Conversion constant for inches to feet 

I,J,K,1 

Indices 

IC 

Chamber index = 1 MSC chamber 

= 2 LTV chamber 

IL 

Heater element index 

ILC 

Number of individual LSTS heater elements for which 
new coordinate data is to be input 

ILN 

Number of new LSTS systems to be input 

ILP 

LSTS system data print index 
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IT 

IZ 

IT, 12, 14 
NC( IC, J) 


NCMB 

NL» NLAMP( IC, IZ, 
IT) 

NT, NTIER (IC, 
IZ) 

NZ.NZONE (IC) 

XL (IC, IZ, 

IT, IL, I) 


XL0(IC,J) 


Tier index 
Zone index 
Print indices 

Stored chamber constants for Chamber IC . 

J=1 Number of solar screen lengths 

J=2 Number of solar screen widths 

J=3 Number of chamber floor. radial divisions 
(for nodal breakup calculations) 

J=4 Number of chamber floor angular divisions 
J-5 Number of floor thermocouples 

Number of chambers for which data is stored 

Number of LSTS heater elements in tier IT, zone IZ, 
Chamber IC 

Number of LSTS heater element tiers in zone IZ, 

Chamber IC 

Number of LSTS heater zones in Chamber IC 

Initial coordinate data for LSTS heater elements IL, 
in tier IT, in zone IZ, in chamber IC 
1=1 X position of heater element 
=2 Y position of heater element 
=3 Z position of heater element 
=4 Azimuth angle of heater element 
=5 Inclination angle of heater element 
=6 Heater element area 

Stored chamber values for chamber IC 
J=1 LSTS heater emissivity 

=2 Perpendicular distance of pivot from LSTS heater 
=3 Parallel distance of pivot from LSTS heater element 
center 

=4 Solar screen modulation 
=5 Solar screen height, ft. 

=6 Solar screen width, ft 
=7 Chamber floor emissivity 
=8 Chamber floor radial division length, ft 
=11 To 30 Absorptivity of material I (I=J-10) to solar 
lamp energy 
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SUBI3 SUBPROGRAM aOW CHART 


CO 















V WH .* M 111 .» ,M It) » 

tMur no* M«rm\N \ ihh 22 m. o»»- 

Tills UHJ’llAnON 1*VS IX»M- on I 5 M>\ 71 Vl 65:06- {'I' 


sniKHTINK Mill 1 

6vm> point ooMifc 

STORAGE (S61) 

iHinov, 

lENGlUl 

0001 

mxxe 

001 440 

oooo 

■M'Vl'A 

02051.7 

0002 

♦ HIANK 

OOOOOO 

0001 

Ml 

000471 


EXT6MVM. H6>VHENC>:S I HI l XT , WE) 


0004 

EXIT 

ooos 

Mil* n 

0000 

Mill V 

0007 

M02* 

0010 

N71X N 

oon 

!SH6>N 

0012 

NH11I N 

001 3 

sum is 


MU HIV*. ANSIC-V-iXr Mil VAlU AMIES (HKX7\, TUT:. mi,vmv: lIXVlION, N-\>E.> 


0001 


000004 

1101 

000 i 


000064 

II 11 

<1001 


0001 


000711 

1621. 

0001 


000766 

1t.H|. 

0001 


0001 


000)71 

.10 '47 

0001 


000224 

11:71 

0001 


0001 


000457 

:iM4i 

0001 


000510 

40 1(1 

0001 


0001 


000646 

41011 

0001 


000701 

45(x; 

0001 


0001 


001010 

6210 

0001 


0010.17 

6271 

0001 


0001 


00106.1 

64141 

0001 


001072 

**201. 

0001 


000} 


00121 5 

*2)1, 

0001 


001211 

**261. 

0001 


0000 


020216 

90 IK 

0000 


020217 

902K 

0000 


0000 


020)54 

9206' 

0000 


020401 

92 IE 

0000 


0000 


020462 

9266' 

0001 

R 

0000 II 

awe: 

0000 

R 

0000 

R 

020166 

KNV1 

0000 

K 

020205 KNV2 

oooo 

R 

0003 

1 

000013 

ICARI) 

0000 

1 

020212 

IL 

0003 

1 

000) 

1 

000442 

IN 

0003 

1 

000007 

lour 

0003 

1 

000) 

1 

000012 

ISC 

0000 

1 

020172 

IT 

oooo 

1 

0000 

1 

020214 

12 

ouoo 

1 

020215 

14 

oooo 

1 

0003 

1 

000000 

M 

0003 

1 

000001 

MAX 

0003 

1 

0001 

1 

000021 

MTRl> 

0001 

1 

000006 

.vase: 

oooo 

1 

0000 

1 

020211 

M. 

0000 

1 

000025 

MAMP 

0003 
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l>v 

00104 

74 

00104 

84 
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94 
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OIM-SSHJ'v N/OM-l ii.Vnmn.M.'IA'il’tt.t.U.MIM 

I mi ».2*.6» 

»)IM-N5lt)\ n\l< U 

t7tV*ll-M I, I >T> >A'K* (Wi-\ 

„v,A \/»\K(l >.( vn»>a «,!/>,»/“ 1 .*>. 

1 |/-.|,4) / 4, 4V-2 , -'if* ' 

DATA IMMI , I I, I s> . 5) > 1*10,60,12/ 

data ixioti , i >, s.^o.o. 

1 0.24,0.615,0.6,0.45,0.55,0.51.0. >1,1. 0,0. 36,0.91/ 

|»TA <\U)< 1 ,1 >. 1-21 . <0* 7 0.71,0. *•«*,(» 52. 0.24, 0. M«, 0.92, 0. 91 , 0 0. * ‘ 
DATA ( XI (X 1 , 1 > , I ■ 1 , 7 > / 0.85,6.617,0.0 • 

DATA (<XI.(I,I,I,K,1 >,K = 1,24>.I = I.4» 


00000600 


* -55. 154,-49.497,-43.841 
DATA (Odd , 1 ,2.K.l >.Krl ,^4>. I -» ► *> 

* f>. . 13.215, 20.9*9, 2“. 

* 60 . 645 . 62 . 116 , 64 . 7 ** 6 , * 6 . 
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43 . 

841 , 

49. 

497, 

55. 

154, 

66. 

8 57 , 

64. 

786, 
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116, 

60. 

(>45, 

28. 

67 3 , 

20. 

949. 

13. 

215, 

5. 

491 . 

38. 

»*4, 
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841 , 

49. 

497, 

55. 

1 54, 
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8 57 , 

6.4. 

7-6, 

62. 

716, 

60. 

645. 

2*. 

67 1. 

20. 

949, 

13- 

21 5, 

5. 

491 , 

- 18. 

|84, 

-41. 

84l , 
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497 , 

-55. 

154. 

-66. 

857, 

-64. 

786, 

-62. 

716, 

- 60 . 

645, 

-2«. 

67 1, 

-20. 

949, 

-It 

215. 

-5 . 

>91 , 

— .18 

184, 

-4 1. 

8 41 , 

-49. 

491 , 

- 55. 

154, 

-66. 

8 57. 

-64. 

786, 

-62. 

716, 

- 6.0 . 

.645. 

-28. 

673, 

-20. 

949, 

-11. 

215, 

-5. 

491/ 

,4) 

/ 
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* 60.045, 62.116, 64.78(1, 66.857, 66.857 

* 55.154, 49.497, 43.841, 38. 

* - 60 . 645 . -62 . 7 16 , -04 . 7**t> , * 66 . 

* -55.154,-49.497,-41.841,-3**. 

* -5.491,-13.215,-20.949,-28. 

* -60.645,-62.716,-64.786,-66. 

* -55.154,-49.497,-43.841 ,-.18. 

DATA <<X1 (1 .1.1 ,K.2».K = 1,24»,I = I,4> 

* -66.057,-64.786,-62.716,-60.645,-55 

* -28. 67.7, -20. 949, -13. 215, -5.491, 5.491, 1.1.215, 20.949, 2«.671, 

* 38 184 43 841, 49.497, 55.154, 60.645, 62.716, 64.786, fifi. ft 57, 

* -66. 857, -64. 786, -62. 716. -60. 645, -55. 154, -49. 497, -41. 841 ,-38.184, 

* -28.673,-20.949,-13.215, --5. 491 , 5.491. 17.215, 20.949, 28.671, 

* 38 184, 4.7 841 , 49.497, 55.154, 60.645, 62.716, 64.786, 66.857, 

* 66857, 64.786, 62.716, 60 645. 55.154, 49.497, 43.841, 38.184, 

* 28.613, 20.949, 13.215, 5.491, -5. 491 1 .7 . 2 15,-20. 949.-28 . 673 , 

* -38. 184, -43. 841, -49. 497, -55. 154, -60. 645, -62. 716,-64.786 ,-66. 857, 

* 66.857, 64.786, 62.716, 60.645, 55.154, 49.497, 43.841, 78.184, 

* 28.67.3, 20.949, 13.215, 5.491, -5.491,-13.215,-20.949,-28.673, 

* _;m t 104,-41. 841 ,-49.497,-55.154,-60.645,-62.716,-64.786,-66.857/ 

data <t\l.(l.l,2.K,2>,K = !,24>.l=l,4l 2 

* -66,857,-64 .786,-62.716,-60.645,-55. 154,-49.497,-43. 841 ,-38. 184 , 

* -28 673,-20.949,-1.7.215, -5.49|, 5.491, 13.215, 20.949, 28.673, 

* 38.184, 43.841, 49.497, 55.154, 60.645, 62.716, 64.7«6, 66.857. 

* -66 857,-64. 786, -62. 71 6,-60. 645, -55. 154,-49.497,-41.841 ,-3*. 1 84, 

* -28.673,-20.949,-13.215, -5.491, 5.491, 13.215, 20.949, 28.67.3. 

* 38 184, 43.841, 49.497, 55.154, 60.645, 61.745, 62.845, 67.946, 

* 661857, 64.786, 62.716, 60.645, 55.154, 49.497, 43.841, 38.184. 

* 28.673, 20.949, 13.215, 5.491, -5.491,-13.215,-20.949,-28.673, 

* -38. 184, -43. 84! ,-49. 497, -55. 154, -60. 645, -62. 716, -64. 186, -66.1*57. 

* 66.857, 64.786, 62.716, 60.645, 55.154, 49.497, 43.841, 38.184, 
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2-.614. 20.949, 1.3.215, 5.491, -V^U-H 

. 4 *. I *4, - 43 . *4 1 , -49. 497 , -55 . | 54, -Ml . 645,-f 2 

data uxlm.i ,i,k,3),k=i . 241 , 1 = 1.41 / 

2 4* I * . , 24*72., 24*1**. ,24*72. / 

DATA IlM.lt , I ,2,N, <> .Ks 1 ,24) , I = | , 41 / 

24*45. , 24*99., 24*45. , 24*99. / 
l>M A MXI.M 1 I ,1 ,K.4> >- 1 .24 >. ' *1 ,4» ' 

I (I •*> . 000 , 1 o 5 . ooo , 105.00(1. 105. 000 , l I 5 . 0 
i ts . ooo , » 65 . ooo , I O'*. 000, I I- 5 OOO . 1 95 (I 
ti s . ooo , 22 r* . ooo . 2 t s . ooo , 1 1 s . ooo . t 55 . n 
jos. ooo, i os ooo, ins. ooo, ios.ooo, i.is o 
Its 000, 165.000, 165.1100, IbS.WlO, I9S.II 
u r». ooo , u s . ooo , 22 s . ooo , u 5 . ooo , i ss <i 
2*5 . OOO , 2-5 . OOO ,2* s . OOO , 2*5 . OOO , 'II 5 . I! 
us. ooo , 1 4S . ooo , :<45 . ooo , us . ono , i s . o 

45.000, 45.000, 45.00(1, 4S.00II, 15.(1 
2.-5 . OOO , 2*5 . OOO , 2*5 . OOO , 2*5. OOO , J I S. 0 
us. ooo, :us. ooo, US. OOO. MS. OOO, I s.c 

45.000, 45.000, 45.000, 45.000, 75. (i 

DATA MXI.M ,1 ,2,K.4l,h=l,24),l=l,4> / 

105.000. 105.000.105.000; IOS.OOO, »:I5. OOO, 1.45 
1t5. OOO, 1 05.000 , 1 05.000, 1 65. OOP , 1 95.000, 1 95 

225. 00 0. 2 2 5. 000 .2 2 5. 000. 22 5. 000. 2 55. 000. 2 55 

105.000. 105.000. 105.000. 105.000. 11 5. 000.1 45 

165.000. 165.000. 105.000. 105.000. 195.000.195 

225.000 . 225 . OOO , 225. 000,225. 0(10 , 255 . 000,255 
2 H 5. 000,2*5 . 000,2^5. POO, 2** 5. OOO , 41 5.000 , 415 
345. 000/445. OOO,. 445. OOO, 445.000, 4 5.000, 15 

45.000, 45.000, 45.000, 45.04(0, 75.000, 75 
2*5. OOO, 2*5. OOO, 2*5. OOO, 2H5. OOO, 41 5.000, :» 1 5 
4 45. OOO.. 445. OOO, 345.000, 445. OOO, 15.000, I 5 
45.000, 45.000, 45.000, 45.000, 75.000, 15 
DATA4 < 4 XI .< t , I ,.l,K,fi),Kt| ,25),.lrl .21,1=1,4) / 


21 S, -241 . 949,-2“ . 1-7 4, 
116,-64. 7-6, -1-6 . *57 - 
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ooo 

15 

OOO 

15 

ooo. 



7.S 

ooo 

75 

ooo 

75 

ooo, 
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4 40 


000,1 45 
OOO , 4 95 
000,255 
OOO , 4 45 
OOO , 1 95 
000,255 
0(10,. II 5 
.000, 15 
000, 75 
,04)0,. 4 15 
0»0, 15 
.000, 75 
200*0.4 


.000,1 45. 
.000,195. 
.000,255. 
.000, » 45. 
.000,195. 
.000,255. 
.000,41 5. 
.000, 15. 
.000, 75. 
.000, 115. 
.000, 15. 
.000, 15. 
/ 


OOO, 
OOO , 

ooo, 

ono, 

ooo, 

ooo, 

ooo, 

04)0, 

ooo , 
ooo. 
000 , 
0410, 


00001510 
41*570 
11 *4 SO 
(1*41,0 
0*600 
0*450 
0-460 


0*5 40 


0*560 


UI\'9UH 2, 1 TV I .ST.S l A*0* DATA UIKK. 

DATA N2I1NK4 2 > , 1 Ml’ I Ml* 2 , I / I , I /= I , b I , MM AMI*< 2,1/., IT! , IT- 1,21, 

I /= I , 6) / 6.6»2, 20,20,10.10.14,14,14,14,4410 / 

DATA (NCI 2, 11,1-1,51 / 1 6, 1 2. 5. 10. */ 

DATA 4X11)12,1 1,1=4,201 / 1 . ,9. ,6. , .92, . 5,2*0. , 

0.29,0.640,0.6,0.62,0.55,0.51 .0. .1.3,1 .0,0. 36,0 . 91/ 

DATA IXI/H2, 11,1=21,3012 0 . 77 ,0. *0,0. 52 ,0 . 24, 0. 90, 0 . 92,0.91 ,3*0. 1 / 
DATA (XIO<2, II, 1=1, .31 / 0.9,0.0,5.06 / 

DATA! 1 (Xl.12, 1 ,.1,K,6>,K=J , 20>, .1 = 1, 2>, 1=1,6) / 240*0.05614 / 

D1TA<<<XL< 2, 1 t l,K,.3),K=l , 20 1 , J = l ,2) , I = 1 , 6) / 


DATA<<<XL< 2,1 ,.l,K,l.l.J=l ,2),K=1 ,20>,L=1 ,2) / 

2#3.l.lH, 2*6.404, 2*13.766, 2*16.610, 2*23.360, 2*27.375, 

2*30.695, 2*33.260, 2*35.005, 2*35.669, 

2*35.669, 2*35.005, 2*33.260, 2*30.695, 2*27.375, 2*23.360, 

2*16.610, 2*13.776, 2*6.404, 2*3.136, 

2**35.663 , 2*-35.005, 2*-33 ,260, 2*-30. 695, 2*-27. 375, 2*- 23. 360, 
2*-l 6 . 61 0 , 2*- ! 3 . 776,2*-*. 404, 2*-2 . 625, 

2*2.625, 2*6.404, 2*13.776, 2*16.610, 2*23.360, 2*27.375, 

2*30.695, 2*33.260, 2*35.005, 2*35.663 / 

DATA MXL< 2.1 ,«J,K, 4I,J=1 , 2 1 ,K=I ,20) / 

2*95. , 2*103,5, 2*112.5, 2*121.5, 2*130.5, 

2*139.5, 2*146.5, 2*157.5, 2*166.5, 2*175.5, 

2*-l 75. 5, 2*-166. 5, 2*-157.5, 2*-l46.5, 2*-139.5, 

2*-130. 5, 2*-121 .5, 2*112. 5, 2*-l03.5, 2*-95.0 / 

DATA <<<X1.<2,2,J,K,I.1,J=1 ,2>,K=I,10>,1.= 1 ,2)/ 

2*5.631, 2*16.34*. 2*25.456, 2*32.076. 2*35.557, 

2*35.557, 2*32.076, 2*25.456, 2*16.344. 2*5.631, 
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00112 

00174 
00174 
00174 
00174 
00174 
00174 
00)7 4 
00) 7b 
CO) 7b 

com 

00) 7t> 
00*00 
00*00 
oozon 
00*00 
00*00 
00*00 
00*00 
00*02 
00202 
00*02 
00*02 
00*04 
00*04 
00*04 
00 * 0 © 
002 or. 

00*0b 
00*10 
00* 1 0 
002)0 
00*12 
002)4 
00*16 
002*0 
00224 
00227 
00227 
00227 
00227 

oo*:*o 

002.12 

00*1.1 

00243 

00244 
00246 
00260 
0026} 
002-61 
00264 
00266 
00266 
00260 
00 * 6 ) 
00261 
00264 
00267 
00270 


52” 
it* 
344 
.16* 
:tb* 
• 7* 
•lx* 
14* 
40* 
41* 
42* 
4 I* 
44* 
46* 
4b* 
47* 
4** 
49* 
60* 
61* 
62* 
61* 
64* 
6S* 

r.b* 

67* 
. 6 *** 
69* 
60* 
M* 
62* 
bi* 
M* 
66* 
bl<* 
67* 
6k* 
69* 
70* 
7)* 
72* 
71* 
74* 
76» 
7 b* 
77* 
7k* 
79* 
60* 
61* 
K2* 
K.i* 
64* 
*»6* 
Kb* 
K7* 
KK* 
K9* 
90* 
01 * 
92* 
4.1* 
44* 


I 2" *16. 667,2' - 12.076.2^-2 6. 466.2 * - lb. H i. 2»* 6. 1 H . 

1 2*6 6.1) . 26 lb . 1*4. 2*'26.46b. 2 ' «2 076, 2' l6. **67 ' 

DATA <1X1 i2.2, «. K, 4l ,1-1 ,21, KM .)©> 

1 2*99 0, 2'U7.0, 2*1.16.0, 2'IM.O, 2-17) ft. 

I 2*- 171 . 2<- I 61.00,2*- I t r >. 00,2*- II 7 .00. 2’ -99 (1/ 

DMA I « (XI (2,;i..l.h,l • .-I - 1 ,2) ,k- I . I 4) .1 : 1 ,2 > < 

I 2" 1.461, 2*1 1. 42 1. 2“ I ** . k 1 0 , 2*24 . 2 *2 , 2*1» .(62, 2- i 1 9 16, 

I 4’!- .1.6.769, 2*1 1.916. 2*10.362. 2*26.2 12. 2 2*11.42 1, 

I 2*1. 461 . 

I 2*- 16. * 14, 2*- 14. ) 40,2*- 10. 646,2''- 26 677. 2*- 19. 14.1,2“- 12 . 017. 
I 2*- 4 07.4, 2*4.07.6, 2*12.017, 2*19 .141, 2*26.677. 2- (0.694, 

I 2*14.140, 2*16.-14 / 

l>M-\ nXH2..1,l,K.4),J:l ,2l,bt1 , 14) f- 

I 2*96.4, 2* I Ok. 4, 2*121.4, 2*1 i4. 4, 2’I47.6, 2*11.0. 4, 

I 2*171 6, 2*- 17 1.4, 2*- 160. 4, 2*-H7.4, 2*“M4.6. 2"- 121.4, 

I 2*" ID* 4 , 4, 2*~94,4 / 

data mxM2,4..i,k.i >,.m .2>,bn ,i4t,i;i,2>/ 

I 2*-3. 441 , 2*'1 1 . 42 i,2*-1K.KI0,2*-24.2 12.2*- 10. 162,2*- 11.935, 
1 4*-;i4, 7b9,2*- H. 916,2*- 1ft. 162,2*-24.2 12.2 *'|k.(*I0,2*- 1 1.421, 

I 2*-:i.46l, 

1 2*-34. 611,2*- 14 .1 40.2** Ift. 694,2**24.671 ,2*- 1 9.. u 4, 2*- 12.017, 

1 2*-4.014, 2*4.076, 2*12.011, 2*19. Ul, 2*26.677, 2*10.694, 

I 2*14.140, 2*14. M4 / 

DATA ( ( XI 1 2 , 4 ,.l , b , 4 ) , J - 1 ,21 ,Ks I , I 4) t 

I 2**4 . 6 , 2*71.4, 2*4k. 4, 2*44.4, 2*12.4, 2*19.4, 

1 2*fi . 4, 2*-fi. 4, 2*- 19. 4, 2*- 32. 4, 2*- 46.6, 2*- ->.4, 

I 2*- 11 - 6, 2*-K4.6 / 

DATA (((XU2, l,.),k, I >, 1M ,2>, I -4,61 ,k = l, lft>/ 

1 4*- 4. 611, 4*- lb. .14 1,4*- 24.44b, 4*- 32.076, 4*- 19. 447, 

I ♦*”36.647 , 4*- 12.070,4**24. 46b, 4*- 16. 144, 4*-. 5. Ml / 

DATA < ( ( Xl.l 2 , 1 ,1 ,6 . 2 1 I ,2 > . I = 4,b » ,k-1 , 1 01/ 

1 4*- 34. 447, 4*-. 12. 07b, 4*- 24. 46b, 4*- 1 6 U4,4*-6.MI , 

1 4*4.61), 4*16.144, 4*24. 460, 4*12.076. 4*14.641 / 

DATA 111X1.(2,1 ,.l,h, 4l,.ltl ,21. 1-4,6. > ,kM, I ft)/ 

1 4* K 1 . 0 , 4*63.0, 4*14.0, 4*27.0, 4*9 0, 

1 4*-9.0, 4* - 2 7 . 0 , 4*-46.0, 4* -61.0, 44-1*1.0 / 

DATA((((Xl.l ) ,4), 1=1 ,3>,.lr| ,M ( kO, .1 » , I -1,261 / 1 140*0.0 / 

DATA KT / O.flKimi / 

DATA MMI tit 

DATA AS/.AVf.ANL / 4H2DSK , 4)6616)1 , 4)0 AMP / 

DATA VSU, KNV 2 / flbt-C C, flfl lV C, 6H C, fWVUt-H / 
fcXX I VAI 6X0 < I M 1 0 > , II M , 1 1 M 1 1 1 , 1 1C 1 , 1 1 M ) 2 ) , I IP I 
C 

C SHTION 100, I MIT AMXXTP1T 06' I AMP UHKMMVKS 

c 

ik i n.\.i>:.o> u> to no 
no cnvriMK 

H6AI) 14,90l> IC,k2,iVf|U)(|C,l),m,fc> 

ICAHD = ICAHI) * 1 
112 IK 1IC.CT.3) tt) TO *25 
IK I JC.trr.O) <50 TO 114 
1C = NCM3 * I 
IK HC.CT.3) CO TO 625 
NCMB = MM3 ♦ 1 
«) TO 115 
1)4 CONTI MK 

IK IIC.Cr.NOfD NOB = 1C 

115 CDVJTNU-; 

IK INZ.Crr. 6. OH.NZ.LT. I ) (I) TO K2I 
N/ONKIIC) = NZ 
DO HA |Z=I,NZ 
VT r NTmUIC.IZ) 

IK IVT.CT. 3. OH.VT.LT. I ICO TO 022 



! 

n r .’< 

HK\n 3 5.00 1 ) 3NIAVPI 1C. I /. IT* . K‘ ' 1 * v * 1 

00 too 

146* 

u Aim r ICARI) « t 

00101 

107* 

|I6 tt)VJINU* 

onto.t 

) 0** 

H6.\l> t 5,002 » (MCI If, 1 M -1 . ** 

00 ill 

00112 

i oo* 
200* 

ICAHI) * H WI) ♦ 1 

IK CM 03 11’ ,1 » .IT .0.0. (*< M 03 • <’ , 1 * ITI liM «l >0 

00.il 4 

201* 

U) 120 l/=l ,5/ 

00.117 

202* 

vi = vritwK’.m 

00120 

20.1* 

111 120 IT-I.vr 

0012 I 

204* 

M : M.WIC,I/,ITI 

00124 

205* 

IK iM.lir. 25.011 .N1..I.T. 1 MU1 "HI -2t 

00326 

206* 

III 1 1" I1M.M 

HKM> 3 5,0021 <M < 1C, 1/. IT, It , 1 > . t - 1 ,6* 

00111 

207* 

0031T 

20e* 

KAMI) = IDAHO « 1 

00.140 

200* 

16 <M (1C, 17, IT. II ,6) . IK. II 1 Ul ll> *2-» 

001*2 

210* 

lie rovriMv: 

003 4 4 

211* 

120 UIVI'IMK 

00147 

212* 

II.N = IIA - 1 

00150 

211* 

16 3IKN.CT.01 CO It) 110 

001 !S2 

214* 

110 OKTIMK 

001 SI 

215* 

16 HUM £.01 U) It) 154 

C0155 

216* 

U) 1 50 1-1., nr 

001 *0 

217* 

RKAI) <5,001 > It’. IZ, IT, 11 

Oo;u>f> 

21 ** 

I C ARD = IDAHO ♦ 1 

00107 

210* 

IK IlC.tJI .NCMi.OH. ItMT.I 1 U> H> *25 

00171 

220* 

IK < l/..in\N2P\K3 IDMM. 1/ 13 . 1 > <*> lt> **26 

00171 

221* 

16' 3 IT .371'. vriHI3 If, l/» <»< > T * T I’ r ») It) **27 

CO 17 5 

222* 

16’ < II .GT.MAMPf 1C, 12, IT MM. M I.T.IIUl ’Itl -2- 

00177 

221* 

HKAO 15.002) 3 VI .3 13!, 1 Z, IT. II ,•! ) ,*•♦ 1 . 1») 

00405 

224* 

It’ARI) = IDAHO ♦ 1 

00400 

225* 

16 (M.3 1C, IZ, IT, II m 6>.»K,0. » tt> It) *24 

00410 

226* 

150 CONTI M 6 

00412 

227* 

154 CONTI NIK 

00411 

22** 

U> 112 13=1 ,H>« 

0041 (> 

220* 

NZ = N2t)NE3ICI 

00417 

210* 

II = 46 

00420 

211* 

12-42 

00421 

212* 

14 = 1C* 4 

004.*? 

?3 1+ 

IT) 170 I/-I ,NZ 

00425 

234* 

Vr = NT 1610 1C, 1/) 

00426 

235* 

DO 170 IT" 1 ,NV 

00411 

216* 

WITH 36,016) 

00411 

217* 

11 = 11*1 

00414 

2 IK* 

NL - MAMP3 1C, 17.. ITT 

00415 

2.30* 

DO 170 IL. s»,M. 

00440 

240* 

IK ( H.P.CE.O .AND. ILP.NE. 1C) OO TO IfcH 

004 42 

241* 

1! = 11*1 

004 41 

242* 

16 ( 1 1 .IIJ. I2> tt) It) 162 

00445 

241* 

J PACK - IPAGE ♦ 1 

00446 

244* 

WRITE 3 6,014) TlTlfc.lPAWi, KNVHIO, KNV2.IC, 

00446 

245* 

1, (MO< 1C, 11,1 = 1, 3) 

00465 

246* 

n - 1 

00466 

247* 

162 WHITE 36,915) IZ, IT, 11 . <XL3 »C, 1 Z, IT, IL, 1 ) , 1 =1 , 

00477 

24*** 

1 brt CONTI ME 

00500 

240* 

DO 160 1-1,3 

0050.1 

250* 

160 XI 3 1C. 1/., IT. IC-, 1) = XUIC.IZ.IT, 11,1 >*KT 

00505 

251* 

XI 3 IC.IZ.IT.IL, 4) = XL< 1C, IZ, IT, IL,4)*PlleO 

00506 

252* 

170 CONTI ME 

00512 

251* 

Xl£)3 1C, 2 ) = XU)3 IC,2)*6T 

00511 

254* 

XIjOUC.3) = XI 03 1C, 1 >*6T 

00514 

255* 

112 CONTINUE 

00516 

256* 

REWIND 4 

00517 

251* 

WRITE! 4 > XL, M>B,NiI>NK, Vfl 633 , MAW , M7, MO 
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I 

I 


I 



25*v. 


HKH«S 


00552 

259* 

c 



00552 

260* 

c 

SHTUIN HOI), 

IMOT HI HUH l)IAGM)VI‘IC >*\> SACKS 

00552 

261* 

C 



0055) 

262* 


Hf« (i»,‘i < fo> 

ICAHI) 

00556 

2i>:<* 


wm' <6,<*2i> 

vmiir,ii 

005ft| 

if *i 


c\ii exit 



00502 

265* 


M2 1 WU'I>: <6.920) 1C Mil) 

00565 

2 ft f>* 


IX = 6 

00 fifth 

267* 


WITK <6.422> AV.NZ.IZ 

0057 1 

26“* 


CM J, KXIT 

00574 

269* 


M22 MUTE <6,920> ICAHO 

00577 

270* 


IT = 3 

00600 

271* 


WIITK <6,922> AVI', V|', IT 

00ft05 

272* 


CAN. KXIT 

OOftOft 

271* 


*2 i IHIIV <6, 920) 1C Mil) 

OOfcll 

274* 


11. = 25 

00ft 12 

275* 


WIITK <6,922) AM.M.II. 

00ft 17 

276* 


CAN. KXIT 

00ft20 

277* 


H24 WITH <6,920) IC-VII) 

00ft 27 

27M* 


WITH <6,924) 

00625 

279* . 


CAN KXIT 

00ft i 6 

2 ho* 


M2 5 WIITK <6,920) ICAHI) 

ooft.n 

2H1* 


Win: <6,926> IC.MM1 

00635 

2 M2* 


CAN. KXIT 

00616 

2 M3* 


M2C WIITK <6,920) 1C, MID 

00ft 4 1 

2M4* 


WIITK <6, 92“) ANZ, 1Z.N2DNKI ID 

00ft4ft 

2M5* 


CAM. KXIT 

OOG47 

2Mf* 


M27 Win <6,920) IC.MIl) 

00652 

2M7* 


WIITK < 6,92“ > AVI,IT,NTM-HI 1C, 1/1 

00657 

2 MM* 


CAIl. KXIT 

OOftftO 

2M9* 


M2H WIITK <6, 920> IC-MII) 

00661 

240* 


WIITK <6,92M) AM., H.,M AMPI 1C, 1 X, IT) 

00670 

291* 


CAM. KXIT 

00670 

292* 

C 


00670 

293* 

c 

SECTION 900, KMMAT STATH9EVTS 

00670 

294* 

c 


00671 

295* 


901 FORMAT <2014) 

00672 

296* 


902 FORMAT O0KH.3 > 

00673 

297* 


914 FORMAT <1H»,29X t l4A.5,t2X,4HPVGE,l4 /// 

00673 

29S* 


1 31H 1AMP CVXX1DI NATE DATA KJH 1XK ,2A6, I7M (CHANWFN M NHER ,13, 

00673 

299* 


2 3H 1. //I OH 1VMIK ARK, 13, 24H ZONKS IN THIS CKAStM-ll . 

00673 

300* 


3 23X, 19H FNISSIVITY = ,K6.3 //40H LAMP PIVOT POSITION 1 FROM 

00673 

301* 


4l AMP ONTHO. ,I0X ,25H PFRFFMXCU ,\R DISTANCE = , KM. 3, 5H IN./ 

00673 

302* 


5 50X, 25H PARAUEL DISTANCE * ,Kh.3, 5H IN. /// 

00673 

303* 


3 60H ZIAE TlfcJI LAMP X V Z , 

00673 

304* 


4 30H AZIMTH I NCI A AREA / 

00673 

305* 


5 60H MNttFH MM1KR MKHfcH UNI <IN) UN), 

00673 

306* 


5 3IH (DEO) <DEG> <fT**2> ) 

00674 

307* 


915 HHHVT <31 10.5K10. 2,KI0. 4> 

00675 

30M* 


916 RH91T (IH ) 

00676 

309* 


920 FORMAT 1////47H FATAL FRROH IN DATA JNPIT FOUND ON CARD NIM1FJI, 

00676 

310* 


* 14 , // 52H PROGRAM WILL CA1L KXIT AFTFH THE KXJ1NU5C NfcSSAGE 

00676 

311* 


2. ////> 

00677 

312* 


921 FOItHVr <25H tAMP FJ415SIV1TY INPUT = ,K«.4) 

00700 

311* 


922 FORMAT <UH MMKR OK ,A4,34)« DESIRFD IS TOO LARGE DR IS 7ERO.// 

00700 

314* 


) 16H MHtfJH IMVT = , I5.30X.1MH MAXIH.M AJ J /MV1) = ,13) 

00701 

315* 


924 FORMAT <29H IAN»» AREA 1NPLT IS NHGATIVK. ) 

00702 

316* 


926 FURMVT <37H OiAMRKH MNWHI IS PVT DOES NOT EXIST. ///24H CKVWI NIM 

00702 

317* 


IBfH INPIT = , 13.30X, I9H MVXiMlM EXISTING *,15) 

00703 

31** 


929 FORMVT <IX,A4,40H MWHI DESIRED IS lOO LARGE OR IS »XO.///|X, 

00703 

319* 


1 15H MNfiffi INPUT *. 1 5, 30X, 35H HAX1HM EXISTING IN THIS CFUMttK r 

00703 

320* 


2,13 ) 


321* 


EM) 


KM) OK INI VAC HO* KHTR W V ttMMIATIOV 0 *OI V7M)>TlO 'KV-UIM 


stun 

SV'MM.IC 

1". »» 

71 

fti: 59 Mi- 

0 0221620ft 

It 

<21 

sun 3 <*** ; 

HFIOCATAHIE 

15 ni> 

71 

ll): 59: <i- 

1 0222702 » 

tft 

1 





O 022271)711 

It 

562 


< 1)1.1 KOI)* 
(UIK'iHI) 
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SUBPROGRAM NAME: SUB 14 


SEGMENT NAME: SUB 1 4 

PURPOSE: To store and load the EHER with the Apollo Extravehicular Mobility 

Unit/Lunar Rover Vehicle (EMU/LRV) nodal data. 

DESCRIPTION: The SUBI4 subprogram contains the Reference Coordinate System 

(RCS) nodal data for the EMU/LRV in the driving and 2 parking modes. The 
routine consists of block data statements and a write statement to put 
the EMU/LRV data on a high speed drum (logical Unit 4) for input to the 
INPUT1 program. The RCS data stored in SUBI4 for the EMU/LRV is des- 
cribed in Appendix B of Volume I. 

CALLING PROGRAM: INPUT1 

ARGUMENT LIST: None 

NOMENCLATURE: The MR block common contains all the variables of the SUBI4 

subprogram. The variables of the MR block common are defined with the 
SUBM1 (main program) nomenclature. 

PROGRAM LISTING: Since the SUBI4 subprogram contains only block data state- 

ments and a write statement, no listing is presented here. 

FLOW CHART: 
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SUBPROGRAM NAME: SUBI5 

SEGMENT NAME: SUB 1 5 


PURPOSE .* To store and load the EHFR with the Apollo Extravehicular Mobility 
Unit (EMU) nodal data. 

DES ^TI°N: The SUBI5 subprogram contains the Reference Coordinate System 
(RCS) nodal data for the Apollo EMU in the standing and floating modes. 
I,,? 5°I sists °f b1ock data Statements and a write statement to 

* EMU data a bl 9h speed drum (logical Unit 4) for input to the 
INPUT! program. The RCS data stored in SUBI5 for the EMU is described in 
Appendix A of Volume I. 

CALLING PROGRAM: INPUT1 

ARGUMENT LIST: None 

NOMENCLATURE: The MR block common contains all the variables of the SUB 1 5 

* The va !^ iables tbe MR block common are defined with the 
SUBM1 (main program) nomenclature. 

PROGRAM LISTING: Since the SUBI5 subprogram contains only block data state- 

ments and a write statement, no listing is presented here. 


FLOW CHART: 
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SUBPROGRAM NAME: SUB 1 6 

SEGMENT NAME: SUB I 6 

PURPOSE: To store and load the EHFR with the Apollo Extravehicular Mobility 

Unit/Scientific Instruments Module Bay (EMU/SIM) nodal data. 

DESCRIPTION: The SUB 16 subprogram contains the Reference Coordinate System 

(RCS) nodal data for the Apollo EMU/SIM in the egress ing and retrieving modes. 
The routine consists of block data statements and a write statement to 
put the EMU/SIM data on a high speed drum {logical Unit 4) for input to 
the INPUT1 program. The RCS data stored in SUBI6 for the EMU/SIM is des- 
cribed in Appendix C of Volume I, 

CALLING PROGRAM: INPUT1 

ARGUMENT LIST: None 

NOMENCLATURE: The MR block common jconta ins all the variables of the SUBI6 
subprogram. The variables of the MR block common are defined with the 
SUBM1 (main program) nomenclature. 

PROGRAM LISTING: Since the SUB 1 6 subprogram contains only block data state- 

ments and a write statement, no listing is presented here. 
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